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Section I 


SECTION I 

GENERAL INFORMATION 


1*1. INTRODUCTION. 

1-2. This is a diagnostic test program. It contains a 

series of routines that test the reliability of all program- 
mable features of a Hewlett-Packard 12606 A Disc Memory 
Interface Kit and either an HP 2770A, 2770A-01, 2771A, 
or 2771A-01 Disc Memory. 

13. EQUIPMENT REQUIRED. 

1-4. INSTRUMENTS: 

a. Computer: HP computer with DMA option. 

b. Teleprinter: HP 2752 A or equivalent. 

e. Punched Tape Reader: HP 2737 A or equivalent. 

d. Disc Memory: HP 2770A, 2770A-01, 2771A, or 
2771A-01. 

e. Disc Memory Power Supply: HP 27 7 2 A. 

1-5. ACCESSORIES: 

a. Teleprinter Interface Kit, HP 12531B. 

b. Punched Tape Reader Interface Kit, HP 12532 A. 


c. Data Channel Interface Card, HP 12606-6001. 

d. Command Channel Interface Card, HP 12606-6002. 

e. Interface Cable, HP 12606-6003. 

f. Main Power Cable, HP 8120-0078. 

g. AC Power Interconnecting Cable, HP 02770-6003. 

h. DC Power Interconnecting Cable, HP 02772-6003. 

1-6. DIAGNOSTIC TAPE AND PROGRAMS: 

a. Diagnostic Tape, HP 20346B. 

b. SIO Buffered Teleprinter Driver: 

4K Memory - HP 20322A 
8K Memory - HP 20323A 
16K Memory - HP 20330B 

c. SIO Buffered Punched Tape Reader Driver: 

4K Memory - HP 20303A 
8K Memory - HP 20306A 
16K Memory - HP 20319A 
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Section II 


SECTION II 
PREPARATION 


2-1. INTRODUCTION. 

2-2. This section contains instructions for assembling a 
complete disc memory system of Hewlett-Packard 
components. 

2-3. PRINTED CIRCUIT CARDS. 

CAUTION 

Turn off computer power before re- 
moving or inserting cards to prevent 
damage to cards, computer, or both. 

2-4. PUNCHED TAPE READER CARD. 

2-5. Insert punched tape reader interface card into an 

appropriate I/O slot in the computer. 

2-6. TELEPRINTER CARD. 

2-7. Insert teleprinter interface card into an appropriate 
I/O slot in the computer. 

2-8. DISC CONTROLLER CARDS. 

2-9. Insert the data channel and command channel in- 
terface cards into any two adjacent I/O slots with the 
12606-6001 card in the higher priority location of the two. 
The track-protect switch will be located between the inter- 
face cards when they are correctly inserted. Interrupt 
priority to the disc controller interface cards is not 
necessary. 

2-10. CABLES. 

2-11. INTERFACE CABLE. 

2-12. Connect the Interface Cable (12606-6003) from 

the interface cards to the disc memory. 


CAUTION 

Do not connect the AC Power Intercon- 
necting Cable (02770-6003) to a power 
source other than the disc memory power 
supply (connector J2). 


2-13. POWER INTERCONNECTING CABLES. 

2-14. Connect the DC Power Interconnecting Cable 
(02772-6003) and the AC Power Interconnecting Cable 
(02770-6003) between the disc memory and the disc 
memory power supply. 

2-15. MAIN POWER CABLE. 

2-16. Connect the Main Power Cable (8120-0078) from 
the disc memory power supply to 115 volts ac. 


2-17. DISC MEMORY. 

2-18. Turn on the disc memory power supply and the 
computer. 

2-19. Adjust the helium pressure to the disc memory as 
follows: 

a. Read the low pressure gauge on the regulator, visible 
from the right side of the disc memory; pressure should be 
1/4 psi to 1/2 psi, cold. 

b. If necessary, adjust the helium pressure by bleeding; 
bleed by pulling down on the plunger valve located on the 
chassis, above and in front of the low pressure gauge. 
Helium pressure will rise as the disc warms up. 
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SECTION III 

TEST INFORMATION 


3-1. INTRODUCTION. 

3-2. This section contains general instructions and 

tables to be used with the test procedures in Section IV. 

3-3. NUMBER OF TRACKS. 

3-4. Data is stored on the disc in parallel on double- 
circle tracks. Each track contains 90 (132 octal) sectors and 
each sector 64 words. Each word has 16 bits plus a parity 
bit. To determine the number of tracks in a given disc 
memory, note the HP Model number on the back of the top 
plate, next to the pressurized housing, and compare it to 
those listed in table 3-1. 


Table 3-1. Table of Disc Memory Tracks 


HP MODEL NUMBER 

NUMBER OF TRACKS 

2770A 

32 (40 octal) 

2770A-01 

64 (100 octal) 

2771 A 

64 (100 octal) 

2771A-01 

128 (200 octal) 


3-5. DATA TRANSFER BLOCK SIZES. 

3-6. Table 3-2 lists the capacity of various core mem- 
ories to store data en bloc. This characteristic of a core 
memory limits the quantity of data that can be written into 
the disc memory or read out of it in a single block. 


Table 3-2. Table of Core Memory Data Transfer 
Block Capacity 


CORE MEMORY SIZE 

DATA TRANSFER BLOCK SIZE 

4096 (4K) 16 bit words 
8192 (BK) 16 bit words 
16,384 (16K) 16 bit words 

11 (13 octal) sectors or 704 words 
74 (112 octal) sectors or 4,736 words 
90 (132 octal) sectors or 5,760 words 


3-7. CORE REQUIREMENTS FOR TEST PROGRAM. 

3-8. Table 3-3 lists the core locations that will be used 
by the diagnostic test program. 

3-9. OCTAL NOTATION. 

3-10. While this diagnostic test program is running, all 
numbers contained in input parameters or output messages 
are expressed in octal notation. 


Table 3-3. Table of Core Requirements for 
Test Programs 


CORE MEMORY SIZE 

LOCATIONS 

All Sizes 

000100-001726 

All Sizes 

002000 - 005737 

PLUS ONE OF THE FOLLOWING 

4096 (4K) 16 bit words 

007235 - 007677 

8192 (8K) 16 bit words 

017235-017677 

16,384 (16K) 16 bit words 

037235 - 037677 


3-11. LOOPING READ OR WRITE ROUTINES. 

3-12. Since some errors may not appear until after the 
disc has been running for several minutes, both read and 
write routines should be set to loop for at least 10 minutes 
when conducting any test (see table 3-4). The status of 
both read and write routines is shown by indicator lights on 
the computer. Indicator lights 6 through 15 in the B- 
register remain on steadily during a write routine. Indicator 
lights 6 through 15 in the B-register blink on and off during 
a read routine. 


Table 3-4. Table of Control Settings for 
Looping Routines 


SWITCH REGISTER 

REACTION UNTIL 

BIT SET 

SWITCH REGISTER 

TO LOGIC “1” 

BIT SET TO LOGIC “0” 

Bit 2 

Read routine loops 

Bit 1 

Write routine loops 

Bit 0 

Both read and write routines loop 


3-13. VARIED TEST PATTERNS. 

3-14. Several binary test patterns should be tried during 
the read or write routines; for example, all ones, all zeros, 
an even number of ones, an odd number of ones, etc. The 
total test running time should be at least 30 minutes. 

3-15. EXECUTION MESSAGE SUPPRESSION. 

3-16. During execution of the read or write routines, 
switch register bit 3 set to logic “1” suppresses all ex- 
ecution error messages except “DISC NOT READY”. 


3-1 
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3-17. READING OR WRITING BLOCKS. 

3-18. If it is desirable to read or write selected blocks of 
tracks or sectors, they may be specified in the following 
manner: 

T000-001, TQ20-007, T040-010, T070-002 

3-19. The above statement would read or write the fol- 
lowing octal track addresses: 

000, 020 021 022 023 024 025 026, 040 
041 042 043 044 045 046 047, 070 071 

3-20. Sector block S020-004 would write the following 
sector addresses: 

020 021 022 023 

3-21, PARAMETER SPLIT BETWEEN LINES. 

3-22. A virgule( / ) is used to continue a statement on 
the next 72 column line. It must appear prior to or in 
column 72. No parameter may be split between two lines, 
as shown in the following example: 

T000-001 T060-/ * 

001 etc. 


3-23. If such a split is encountered, the following mes- 
sage is printed: 

“WRITE PARAMETER INCOMPLETE”. 

3-24. . The correct format for continuing a statement on 
the next line is as follows: 

T000-001- - - - - - - -------- T060-001 / 

T061-003 etc. 

3-25. COUNTING ERRORS WITHOUT THE TELE- 
PRINTER. 

3-26. To run the diagnostic test program for long periods 
with the teleprinter off and still keep a record of ac- 
cumulated word errors, it is only necessary to set switch 
register bits 0 and 3 to logic “1”. Bit 0 set to logic “1” 
enables read and write routines to loop. Bit 3 set to logic 
“1” inhibits the teleprinter and enables each word error to 
increment an error counter, comprising memory locations 
001700 and 001701. After 65,536 increments location 
001700 overflows and each subsequent word error in- 
crements location 001701. When the total count of word 
errors is 131,072, the counter is reset and counting 
continues^ 

3-27. When switch register bits 0 and 3 are reset to logic 
“0”, the teleprinter prints “BINARY TEST PATTERN?”. 
The error counter (locations 001700 and 001701) must be 
read before entering a new binary test pattern. Entering a 
new pattern will reset the error counter. 


12606 A 

3-28. RETURNING TO "BINARY TEST PATTERN?". 

3-29. After the messages “DMA OCTAL CHANNEL #?” 
and “HIGH PRIORITY OCTAL ADDRESS?” have been 
initiated, address 002042 can be used at any time to return 
the program to the point where the teleprinter prints 
“BINARY TEST PATTERN?”. 

3-30. GLOSSARY OF DIAGNOSTIC MESSAGES. 

3,31. “DISC NOT READY” 

3-32. After this message is printed, the routine halts and 
allows the user to ready the disc memory for data transfer. 
If RUN is pressed before the disc memory is ready, the 
teleprinter will continue printing the message. This message 
usually indicates a malfunction of the “disc ready” status 
bit. This message has the same meaning for both the write 
and read routines. 

3-33. “ERROR BUSY STATUS BIT DURING WR/RD” 

3-34. After this message is printed, the routine does not 
halt and the current operations are completed normally. 
The “busy” status bit is checked just before the initiation 
of a write or a read operation for a “not busy” condition. If 
either condition is false at the appropriate time, this 
message is printed. 

3-35. “WRITE (or READ) ABORT-TRACK” 

020 (000-177) 

3-36. This message indicates one or more of the 
following: a malfunction of disc power, overheating of the 
disc unit, helium pressure low, a power failure has occurred, 
or a write or read was attempted on either a protected or a 
nonexistent track address. 


3-37. “WRITE (or READ) INTERRUPT MISSING” 
“DMA WORD COUNT = ” 167777 

3-38. This message indicates that, after a write operation 
is initiated, no interrupt occurred within approximately 
100 ms. By inspecting the DMA word count, the user can 
determine whether any words were transferred and, if so, 
how many prior to time-out. The DMA word count is 
output in 2s complement form. The routine does not halt 
after printing this message. 

3-39. “READ PARITY ERROR” 

3-40. This message indicates that a parity error occurred 
while reading a word. 

3-41. “READ (or WRITE) SECTOR BUFFER OVER- 
FLOWED” 

3-42. This message occurs when more than 92 entries 
into the write or read sector buffer are specified for any 
series of “S” parameters. 


3-2 
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3-43. “REA© PARAMETER INCOMPLETE” 

3-44. This message occurs if an illegal character is used 
in, or a character is missing from, any read parameter. 

3-45. “WR/RD WORD COUNT EXCESSIVE” 

3-46. This message occurs if a data transfer block size 
greater than available core memory is specified by single 
“S” parameter. 

3-47. “IMPROPER CHARACTER IN WR/RD PARA- 
METER” 

3-48. This message occurs when a character in a write or 
a read parameter is missing or has been replaced by an 
illegal character. 

3-49. “CHARACTER IN OCTAL PARAMETER IL- 
LEGAL” 

3-50. This message occurs when any character other than 
numerals 0 through 7 is used in an octal parameter. One 
example of an illegal character is the symbol @. 

3-51. “WR/RD PARAMETER EXCEEDS 72 CHAR- 
ACTERS” 

3-52. This message occurs when a line has exceeded 72 
columns. 

3-53. “WRITE PARAMETER INCOMPLETE” 

3-54. This message occurs when a parameter entry has 
been split between two lines. 

3-55. “BINARY PARAMETER EXCEEDS 72 CHAR- 
ACTERS” 

3-56. This message occurs when a binary test pattern 
parameter contains an excessive amount of leading blanks. 
This usually happens while using a punched tape reader 
input. 


3-57. “ILLEGAL CHARACTER IN TEST PATTERN 
PARAM” 

3-58. This message occurs when a binary test pattern 
parameter contains a syntax error. 

3-59. SWITCH REGISTER CONTROL SETTINGS. 

3-60. Table 3-5 lists the various switch register settings 
that control execution of the diagnostic test program. 


Table 3-5. Table of Switch Register 
Control Settings 


BIT 

NUMBER 

LOGIC 

SETTING 

REACTION 

15 

0 

Input from teleprinter 

1 

Input from punched tape reader 

14 

0 

Normal sector buffer input 

1 

Preset sector buffer input 

11 

0 

Bypass or exit track address test 

1 

Loop on track address test 

3 

0 

Execute write/read test error printout 

1 

Bypass all write/read test error printout 

2 

0 

Normal execution of read test routine 

1 

Loop on read test routine 

1 

0 

Normal execution of write test routine 

1 

Loop on write test routine 

0 

0 

Normal execution of read/write test routine 

1 

Loop on read/write test routine 
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SECTION IV 

TEST PROCEDURE 


44. ENABLING AND LOADING. 

4-2. Start the diagnostic test procedure as follows: 

a. Turn on power to the entire system. 

b. Allow several minutes for the disc to reach full 
speed, then check the three lamps on the left side of the 
disc memory. 

c. When all three lamps are out, load and configure the 
SIO buffered teleprinter driver and the SIO buffered 
punched tape reader driver tapes if necessary. 

d. Load the diagnostic tape. When loading is com- 
pleted, check for HLT 77B, 102077 (octal) in the 
T-register. If the T-register does not read 102077 (octal) 
reload the diagnostic tape and check again. 

e. When the T-register reads 102077 (octal), turn on 
the teleprinter. 


4-3. TRACK-PROTECT TEST. 

4-4. Test the track-protect circuit as follows: 

a. Set track-protect switch to the up position, away 
from the center of the card (PROTECTED). The switch is 
located on the Data Channel card (12606-6001). Load 
address 002000, set all switch register switches to “zero,” 
press PRESET and RUN. 

b. “DMA OCTAL CHANNEL # ?” will be printed by 
the teleprinter. The answer input should be a two digit 
number 06 or 07 followed by pressing RETURN and LINE 
FEED. If inputs other than these two are given, the pro- 
gram repeats the inquiry message and waits for a proper 
input. 

c. “HIGH PRIORITY OCTAL DISC ADDRESS?” will 
be printed by the teleprinter. The answer input should be 
the I/O Select Code of the Data Channel card 
(12606-6001). Each answer input must be followed by 
pressing RETURN and LINE FEED. “NO. OF 
PROTECTED TRACKS followed by a three digit octal 
number, should be printed by the teleprinter to indicate the 
total number of protected tracks. 

d. Press HALT. Set the track-protect switch to the 
down position, toward the center of the card (no tracks 
protected). 

e. Load address 002000. 


4-5. TRACK ADDRESS TEST. 

4-6. This test routine checks all track heads for opens 
and shorts. It writes the self-address of each track, sector 
000, and then reads each track, checking for self-address. 
The routine assumes the tracks start with 000 and end with 
the maximum number, in a sequential manner. 

4-7. If switch register bit 11 is set to logic “0” before 
the program reaches this routine, when it does reach it the 
routine will be bypassed. If switch register bit 11 is set to 
logic “0” after entering the routine, the routine will be 
exited. Initialize this routine as follows: 

a. Set switch register bit 11 to logic “1”. 

b. Press PRESET and RUN. 

c. Enter the correct answer intputs in response to 
“DMA OCTAL CHANNEL #?” and “HIGH PRIORITY 
OCTAL DISC ADDRESS?” (see paragraph 4-4, “b” and 
“c”). 

4-8. The initial inquiry message printed by the tele- 
printer is: 

“NO. OF TRACKS?” 


4-9. The answer input should be a three-digit octal 
number representing the total number of tracks (see table 

3- 1), not the last track address. 

4- 10. If an error is encountered, a message similar to the 

following example is printed: 

“TRACK ADDRESS ERROR 
EXPECTED TRACK-006 ACTUAL TRACK-014” 

4-11. The octal values in the example mean track 006 
was addressed, but track 014 was actually read; or when 
writing track 014, it was actually written on track 006. 

4-12. Switch register bit 11 may be set to logic “0” 
immediately after the routine is entered into, since one 
execution of the routine provides a sufficient test. When 
the routine is exited, the following message is printed: 

“TRACK ADDRESS CHECK COMPLETE” 

4-13. READ/WRITE TEST. 

4-14. This is the main routine in the diagnostic test 
program. It writes and reads user-selected word patterns on 
any sector or group of sectors and on any track or group of 
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tracks. After reading word patterns from the disc, the 
routine compares them to the word patterns that were 
written. When errors are encountered, messages describing 
them are printed by the teleprinter. The user selects word 
pattern content and specifies write and read parameters in 
response to the following messages printed by the tele- 
printer: “BINARY TEST PATTERN?”, “WRITE 

TRACKS?”, “WRITE SECTORS?”, “READ TRACKS?”, 
and “READ SECTORS?”. 

4-15. The word patterns used in this routine are com- 
posed of 16- bit binary words in 64-word sector buffers. 
Any combination of sixteen logic “Os” and “Is” can be 
used in a word. A sector buffer can be formed in any of the 
following optional ways: 

a* A 64-word series of one 16-bit word repeated. 

b. A 64-word series of one 16-bit word and its com- 
plement repeated alternately. 

c. A 64-word series of any combination of 16-bit 
words. 

4-16. The first two 64-word sector buffers, option “a” 
and option “b”, are written into core memory from the 
teleprinter keyboard. The third, option “c”, is written into 
core memory from the switch register. 

4-17. If switch register bit 15 is set to logic “1”, the 
punched tape reader will input answers to read and write 
parameter requests (such as “WRITE TRACKS?”). Errors 
encountered on the tape can be corrected via the teleprinter 
as follows: 

a. Set switch register bit 15 to logic “0”. 

b. After the diagnostic message is printed, press RUN. 

c. Enter the corrected parameter from the teleprinter. 

d. Set switch register bit 15 to logic “1”. 

e. Press RETURN or LINE FEED on the teleprinter. 

4-18. The Read/Write Test routine starts by checking 
switch register bit 14. If bit 14 is a logic “0”, the teleprinter 
prints the following initial message: 

“BINARY TEST PATTERN?” 

4-19. At this point the user can form either of two 
64-word sector buffer options described in paragraph 4-15, 
option “a” or option “b”. The answer input in response to 
this message is contained in an 18-character field, as shown 
in the following example: 

11W110911091199CC 

4-20. The first sixteen characters are any combination of 
logic “Os” and “Is”. The last two characters can be either 
“Cs” or blanks. In the example, the first “C” (character 11 J 
indicates every alternate word of the 64-word sector buffer 


will be the complement of the initial word in the sector 
buffer (option “b”). The second “C” (character 18) in- 
dicates every sector will be the complement of the 
preceding sector. If both characters 17 and 18 are blanks, 
one 16-bit word will be repeated 64 times (option “a”) and 
all sectors will be the same. Any syntax error in the binary 
test pattern parameter causes the teleprinter to print the 
following message: 

“ILLEGAL CHARACTER IN TEST PATTERN PARAM” 

4.-21. When the Read/Write Test routine starts, if switch 
register bit 14 is a logic “1”, the computer halts. At this 
point the user can form the third 64-word sector buffer 
option described in paragraph 4-15, option “c”, as follows: 

a. Set in the switch register and load into core memory 
a 64-word series of any combination of 16-bit words. 

b. After sixty-four switch register words are loaded into 
memory, press RUN twice. The routine will proceed to 
request write and read parameters. 

4-22. After the sector buffer is formed, the teleprinter 
prints the following message: 

“WRITE TRACKS?” 

4-23. The answer input depends on the number of tracks 
in the disc memory (see table 3-1). It consists of the 
character “T” followed by two groups of three digits each. 
For example, T000-200. The character “T” identifies the 
instruction as a track location. The first three digits are the 
octal value of the starting track address (range 000-177). 
The second group of three digits is the octal value of the 
number of consecutive tracks to be written. The example, 
T000- 200, would write 200 tracks (128 decimal) starting at 
track zero. 

4-24. The next message printed by the teleprinter is the 
following: 

“WRITE SECTORS?” 

4-25. With a computer that has an 8K (8192 words) 
memory, one possible answer input is S0Q0-100, S100-032. 
This will write sectors 0 through 77 octal, and then sectors 
100 through 131. The character “S” identifies the in- 
struction as a sector location. The first and second groups 
of three digits carry the same information as they do in the 
response to <S WRITE TRACKS?”. To cover the entire 132 
sectors, the answer input must be made in two statements 
because the sector buffer can handle only 112 octal lo- 
cations in one transfer. See table 3-2 for data transfer block 
capacities of other memory sizes. 

4-26. The teleprinter next prints the following message: 
“READ TRACKS?” 

4-27. The answer input for this message is identical to 
the response to “WRITE TRACKS?”. See paragraph 4-23. 


4-2 
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4-28. The final read parameter message printed by the 
teleprinter is the following: 

“READ SECTORS?” 

4-29. The answer input for this message is identical to 
the response to “WRITE SECTORS?”. See paragraph 4-25. 

4-30. After a read operation is executed, a comparison of 
input data is made and any error conditions are printed in 
the following format: 

“TRACK” 000 “SECTOR” P00 “WORD NO.” 00 
“OUTPUT” 000000 “INPUT” 000001 

4-31. “TRACK” will range from 000 to 177, “SECTOR” 
from 000 to 131, and “WORD” from 00 to 77. “OUTPUT” 
is the octal equivalent of a 6-digit word output from the 
computer to the disc. “INPUT” is the octal equivalent of a 
6-digit word input to the computer from the disc (error). 

4-32. SECTOR TIMING TEST. 

4-33. Write a pattern over the entire disc. Read the disc 
in overlapping blocks and sectors as in the following ex- 
ample of an overlapping test. (See paragraphs 3-18, 3-19, 
and 3-20 for further information.) 

“BINARY TEST PATTERN?” 

1110000111100000 

“WRITE TRACKS?” 

T000-040 

“WRITE SECTORS?” 

S000-100, S100-032 
“READ TRACKS?” 

T000-040, T000-020, T020-020, T007-023 
“READ SECTORS?” 

S000-100, S100-032, S011-100 


4*34. POWER FAILURE TESTS. 

4-35. Primary power to the disc memory should be 
turned off and back on during a read cycle and during a 
write cycle. When power is turned off during a read cycle, 
there must be no resulting errors. When power is turned off 
during a write cycle, the entire data transfer may have 
errors. This is the only time, however, during the entire 
diagnostic test program that errors are permissible. Every 
failure of primary power to the disc memory should result 
in the teleprinter printing one or more of the following: 
“DISC NOT READY”, “WRITE ABORT-TRACK”, 
“READ ABORT-TRACK”, “WRITE INTERRUPT 
MISSING”, “READ INTERRUPT MISSING”. 

4-36. POWER FAILURE, READ CYCLE. 

4-37. To check the power failure circuits the binary test 
pattern must be identical for both the read and write 
cycles. Proceed with the test as follows: 
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a. On completion of the last binary test pattern check, 
set all switch register switches to logic “0”. When the 
teleprinter prints “BINARY TEST PATTERN?”, enter 
11001 1001 1001 100CC. 

b. When the teleprinter prints “WRITE TRACKS?”, 
enter the total number of tracks available (see paragraph 
4-23). 

c. When the teleprinter prints “WRITE SECTORS?”, 
enter the total number of sectors (see paragraph 4-25). 

d. After the write statements have been executed, when 
the teleprinter prints “READ TRACKS?”, enter the same 
answer input as for “WRITE TRACKS?”. 

e. When the teleprinter prints “READ SECTORS?”, set 
switch register bit 2 to logic “1” and enter the same answer 
input as for “WRITE SECTORS?”. 

f. While the read routine is looping, turn off the power 
switch on the disc memory power supply. 

g. Wait for the teleprinter to print “DISC NOT 
READY”, then turn on the power switch. 

h. Allow the disc to reach full speed, then press RUN. 

i. Wait 2 minutes, then set switch register bit 2 to logic 
“ 0 ”. 


4-38. POWER FAILURE, WRITE CYCLE. 

4-39. To check the power failure circuits during a write 
cycle proceed as follows: 

a. When the teleprinter prints “BINARY TEST PAT- 
TERN?”, enter 1100110011001100CC. 

b. When the teleprinter prints “WRITE TRACKS?”, 
enter one track address, for example, T05G-001. 

c. When the teleprinter prints “WRITE SECTORS?”, 
set switch register bit 1 to logic “1” and enter one sector 
address, for example, S050-001. 

d. While the write routine is looping on one track and 
one sector, turn off the power switch on the disc memory 
power supply. 

e. With the computer halted, wait for the teleprinter to 
print “DISC NOT READY”, then turn on the power switch 
and allow the disc to reach full speed. 

f. Set switch register bit 1 to logic “0”, load address 
002042, then press PRESET and RUN. 

g. Enter the binary test pattern: 
11001 1001 1001 100CC. 


4-3 



Section IV 


12606A 


h. When the teleprinter prints “WRITE TRACKS?” and 
“WRITE SECTORS?”, the answer input for both should be 
SPACE, RETURN, and LINE FEED. Do not enter a track 
or a sector address. 


i. When the teleprinter prints “READ TRACKS?”, 


enter the total number of tracks available (see paragraph 
4-23). 

j. When the teleprinter prints “READ SECTORS?”, 
enter the total number of sectors available (see paragraph 
4-2'5). Errors must be confined to a chosen track and 
sector, for example, Track 50, Sector 50. 


4*4 
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Section V 


SECTION V 

DIAGNOSTIC LISTINGS 


5-1. INTRODUCTION. 

5-3. This section contains diagnostic program listings 

HP 20346BL and HP 20346CL. These listings provide a 


printout of the data and instructions contained in diagnostic 
tapes HP 20346B and HP 20346C, respectively. Listing 
HP 20346BL is presented first, followed by listing HP 
HP 20346CL. 
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DDC DISC DIAGNOSTIC 


BINARY TAPE - HP20346B 

SOURCE TAPES - HP20862B 

- HP20863B 

- HP20864B 


SOURCE LISTING 


HP20346BL 



RAGF 00O1 


0 0 0 1 A S V 6 , A . B . L 

** NO EKROR'S* 



PAGE 0002 SPECIAL Dl)C LISC DIAGNOSTIC FOR 2115/2116 


0001 

t 


AS6B, A 

i • B • 1 

L 


0003 

00107 



CRG 

1078 


00O4 

00 J 07 

177700 

MAS K 1 

OCT 

1 777*0 

A6-A15 MASK 

0OO5 

00110 

000300 

CARRY 

as s 

3 


0006 

00113 

001407 

CO* V 

HER 

CON V 1 


0 0 0 7 

00114 

P00007 

MASK2 

GC1 

7 

A0-A2 MASK 

0008 

00116 

000060 

MASK3 

OCT 

6m 

ASCII CONSTANT 

0009 

00116 

030000 

MASK4 

CCY 

30000 

ASCII 0 

0010 

00117 

030400 

MASK5 

OCT 

3040* 

ASCII 1 

0011 

00120 

0001 10 

CHARY 

DEF 

CARRY 

BUFFER ADDR, 

0012 

00121 

000110 

CHAR* 

DEF 

CARR* 

BUFFER ADDR. WORKING 

0013 

00122 

000000 

D At R t 

OCT 

0 

HIGHEST PRIORITY DISK ADDRESS 

0014 

00123 

000300 

DMA DR 

OCT 

0 

DMA ADDRESS IN ASCII 

0015 

00 124 

000123 

AR£ HA 

DEf 

PH A DR 

BUFFER ADDR. 

00 16 

00125 

0O0002 

sieo 

OCT 

2 

CHAR. COUNT 

00 17 

00126 

000 1 22 

ADI AD 

IjEF 

DADR 1 

BUFFER ADOR. 

001b 

00127 

000 t 30 

I All 1 

l EF 

HE SI 1 

BUFFER ADDR. 

0019 

0013O 

042115 

ME S 1 1 

ASC 

1 1 , P*A 

UCTAL CHANNEL # ? 


0 0 131 

040440 






03132 

047503 






00133 

052101 






00134 

046040 






00 3 55 

041510 






00136 

04O61 6 






00137 

047105 






00140 

046040 






00141 

021440 






00142 

037440 





0020 

00143 

000025 

CHA 1 1 

OC I 

25 

CHAR. COUNT 

0O2 1 

00144 

030066 

DMA06 

AS C 

1 ,06 


0 022 

00145 

030067 

!■ M A 0 7 

ASC 

1,07 


0023 

00146 

000 1 47 

I AC 12 

DEF 

HES19 

BUFFER ADDR. 

0024 

00147 

044111 

MES 12 

ASC 

17, HIGH 

PRIORITY OCTAL DISC ADDRESS ? 


00150 

e4351P 






00151 

020 120 






00152 

051111 






00153 

047522 






00154 

044524 






00155 

054440 






00156 

047503 






00157 

052101 






00160 

046040 






00161 

0421 1 1 






00162 

051503 






00163 

020101 






00164 

042104 






00165 

051105 






00166 

051523 






00167 

020077 





0O25 

00170 

000O42 

CHA 12 

OCT 

42 

CHAR, COUNT 

0O26 

00171 

000000 

TOP T2 

cct 

0 

TEST OPTION IN ASCII 

0027 

00 1 72 

000733 

S820 

DEF 

BUFF 

INPUT BUFFER A D DR . -WORK I NG 

0028 

00173 

000733 

S 82 1 

OEF 

BUFF 

INPUT BUFFER ADDR, 

0029 

00174 

177734 

S802 

OCT 

1777*4 

BUFFER WORD COUNT-36 

0030 

00175 

020040 

S623 

OCT 

0 200 40 

ASCII BLANKS 

0O31 

00176 

000000 

SEAT 

OCT 

0 

exit flag 

0032 

00177 

000000 

S 82 4 

OCT 

fc 

INPUT CHAR. LENGTH 



DUC LISC DIAGNOSTIC FOR 2115/2116 


p a g e 


0033 

0034 

0035 
HP36 
0837 
0P33 
0039 

0 04 0 

0P4 1 
0P42 
0043 


0044 
00 4 5 
00 4 1 » 
0047 
00 48 
00 4 9 

0050 

0051 

0052 
0P53 
0054 


0055 

0056 

0057 
0358 


0033 #01 SPECIAL 


00200 

000 1 20 

S 88 5 

nCT 

120 

80 CHAR. COUNT 

00 20 1 

000000 

S8P7 

OCT 

8 

ACTUAL INPUT CHAR. COUNT 

0023? 

077777 

S888 

OCT 

7777/ 

RETAIN A 0 — A 1 4 

00203 

000000 

sa <?9 

OCT 

0 

LAST WORD RUFFEP ADDRESS 

00204 

000000 

S810 

OCT 

8 

working u/l char. MASK 

00 24 5 

125252 

S 8 1 1 

OCT 

1252*? 

UPPER/LOWER CHAR. MASK 

0020b 

000377 

sai 2 

OCT 

377 

A0-A7 MASK 

00247 

080000 

S 8 13 

OCT 

0 

TEMP. CHAR. SAVE 

4 0210 

005737 

S 8 1 4 

TEF 

SR 00 

ST. ADDR. OF BUFFER AREA-R/W 

0 4211 

000212 

1 A t 1 6 

FEF 

HESlh 

PUFFER ADDR. 

04212 

041111 

ME S 1 6 

ASC 

11, BINARY 

TEST PATTERN ? 

00213 

047101 





00214 

051131 





00215 

020124 





04216 

042523 





00217 

052R40 





00220 

050101 





00221 

052124 





00222 

042522 





00223 

047040 





40224 

037440 





0 42 25 

000025 

CHA 16 

OCT 

25 

CHAR. COUNT 

00226 

177667 

S 8 1 6 

OCT 

1776*7 

-73 CHAR . COUNT 

03227 

000000 

PwCRD 

OCT 

0 

BINARY PATTERN WORD 

00230 

000600 

CWCRD 

CCT 

0 

COMPLEMENT ALTERNATE WORD FLAG 

00231 

000000 

CBIFF 

OCT 

P 

COMPL. ALTERNATE BUFFERS FLAG 

W0232 

177760 

S817 

lct 

1777*0 

-16 working 

0 0 2 53 

177760 

SB 1 8 

OCT 

1777*8 

-16 PESET 

04234 

000060 

S 8 1 9 

OCT 

6 0 

ASCII 0 

40235 

000061 

SB20 

OCT 

61 

ASCII 1 

04236 

000237 

I AL 18 

I EF 

MES 1 R 

BUFFER ADDR. 

00237 

044514 

ME$ 18 

aSC 

22, it LEGAL 

. CHARACTER in test PATTERN PARAM 

00242 

0461O5 





00241 

043501 





0024? 

B4604P 





00243 

041510 





00244 

046522 





00245 

040503 





00246 

052185 





00247 

051340 





00250 

044516 





60251 

020124 





00252 

042523 





00253 

052040 





00254 

050181 





00255 

052124 





00256 

042522 





04257 

047040 





00266 

050101 





00261 

051101 





00262 

0465145 





00263 

052 1 05 





00264 

051040 





00265 

000653 

CHA 18 

CCT 

53 

CHAR, COUNT 

00266 

000271 

S822 

r.EF 

S8UFF 

SECTOR BUFFER ADDRESS-WORKING 

00267 

00027 1 

S 6 2 3 

1 EF 

SBUFF 

SECTOR BUFFER A DDPESS 

04270 

102001 

S824 

HLT 

01 

MANUAL BUFFER PRESET 
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0059 00271 0000W0 S81FF HSS 64 SECTOR BUFFER 

0000 00371 1020 01 S82 5 HLT 01 SAFETY FACTOR 

fi«61 00372 124373 S826 JMP S627- 1 RETURN TO MAIN PROCESSOR 

0062 00373 002201 S827 KEF S708 MAIN PROGRAM 

00F-3 00374 177700 S826 CCT 1777*0 -64 WORKING 

0U64 00375 177700 S829 OCT 1777*3 -64 

0*65 00376 000377 IAI19 ITEF MESlu BUFFER APDR. 

0066 00377 053522 ME SI 9 ASC 7, WRITE TRACKS ? 

004OR 044524 

00401 042440 
0040? 052122 

00403 040503 

00404 045523 

00405 020077 

0067 004*6 000016 CHA19 OCT 16 CHAR. COUNT 

0069 004*7 000410 I A 1 20 K FF P ES2* BUFFER ADDR. 

0069 00410 053522 MES20 ASC 8, WRITE SECTORS ? 

00411 044524 

00412 042440 

00413 051505 

00414 041524 

00415 047522 

00416 051440 

00417 037440 

00 70 00420 000317 CHA20 OC I 17 CHAR, COUNT 

0071 00421 000422 I A L 2 1 KEF MES2* BUFFER ADDR. 

0072 00422 053522 MES21 ASC 19,WR/PD PARAMFTER EXCEEDS 72 CHARACTERS 

00423 027522 

00424 342*40 

00425 050101 

00426 051101 

00427 046505 
0043K 052105 

00431 051040 

00432 042530 

00433 041505 

00434 042504 

00435 051440 

00436 033462 

00437 020103 

00440 044101 

00441 051101 

00442 041524 

00443 042522 

00444 051440 

0073 00445 000345 CHA21 OCT 45 CHAR, COUNT 

0074 O0446 000070 S820 OCT 70 ASCIT 8 

0375 00447 000450 IAE22 KEF MES25 BUFFER ADDR. 

0O/6 00*50 020040 MES22 ASC 20, CHARACTER IN OCTAL PARAMETER ILLEGAL 

0O451 020143 
03452 044101 

00453 0511*1 

00454 041524 

00455 042522 

00456 0201 1 1 

00457 047040 
00460 047503 



^AGE 0045 #01 SPECIAL Dt)C TISC DIAGNOSTIC FOR 2115/2116 


0 0 451 

00462 

00463 
0 0 4 6 4 
00465 
004 66 
00 46? 
00470 

004 7 1 
0047? 
00473 

0077 00474 

0078 00475 

0n79 00476 

0080 00477 

0081 03500 

0t?82 00531 

0283 M053? 

0084 00533 

0086 00504 

0086 00535 

0087 00536 

0088 00537 

0089 00510 

0090 0051 1 

0091 00512 

0092 00513 

0093 00514 

0094 00515 

00516 

00517 

00520 

00521 

00522 

00523 
30 5 24 
00525 
0 0526 
00527 
0053R 

00531 

00532 

00533 

005 34 
00535 
00336 
00537 

0095 0054C 

0096 00541 

0097 00542 

0098 00543 

00544 

00545 
00646 
00547 
00550 
0055 1 


052101 

346040 
050101 
051101 
046505 
052105 
051040 
0445! 4 
046105 
043501 
040040 
000047 
1 77403 
000040 
000054 
B0OH57 
000055 
00 a 557 
004557 
004757 
004757 
005247 
005247 
005447 
005447 
000124 
000123 
000515 
044515 
050 1 22 
047520 
042522 
020103 

0 4 4 101 

051101 
041524 
04252? 
020 1 1 1 
047040 
053522 
027522 
042040 
0501 3 1 
051101 
046505 
352105 
051340 
000000 
000000 
000543 
053522 
044524 
04244O 
050101 
051 101 
046505 
0521O5 


CHA22 CC1 

5831 OCT 

5832 OCT 
S 8 3 3 OCT 
S834 OCT 
S83 5 OCT 
AWT6F L'EF 
wawtb kef 
AWSBF DEE 
WAKSB 13 EF 
ARTBF TiEF 

wartb def 

ARSBF IiEF 
it A F SB D EF 

5836 OCT 

5837 UCT 
I A l 23 f!EF 
MES23 ASC 


47 

CHAR. COUNT 

1774U0 

A8-A15 MASK 

43 

BLANK 

54 

COMMA 

57 

SLASH 

55 


WTBUF 

WTBUF 

WORKING ADDRESS 

WS9UF 

W3BUF 

WORKING ADDRESS 

RTBUF 

RTBUF 

WORKING ADDRESS 

RSBUF 

RSRUF 

WORKING ADDRESS 

1 24 

ASCII T 

123 

ASCII S 


MES2* 

19, IMPROPER CHARACTER IN WR/RD PARAMETER 


S 8 4 0 OCT 0 CHAR. STORAGE-ST. TRACK 

S841 C C I 0 SEQ, TRACK YALUE-CHAR. STORAGE 

I A 1 24 LEE M E S 2 4 BUFFER ADDR. 

MES24 ASC 13, WRITE PARAMETER INCOMPLETE 



p 4 fit .0006 #01 SPECIAL LUC rise DIAGNOSTIC FOP 2115/2U6 


00*362 05 1 04 0 

00553 044516 

00554 041517 
00655 046520 

00556 0 4 6 1 id 5 

00557 052105 

0099 00560 000002 CHA24 OCT 32 CHAR. COUNT 

0100 00561 000562 I At 25 REF MES?s 8UFFFR ADDR. 

0101 0066? 053522 ME S 25 ASC 15,w*lTE TRACK BUFFER OVERFLOWED 
00563 044524 

0056 4 0424-4 0 

00565 052122 

00566 040503 

00567 045440 

00570 £41125 

00571 M43106 

00572 042522 

00573 020117 
0W574 053105 
00675 051106 

00576 046117 

00577 053505 
006OO 042040 

0102 00601 000035 CH A 25 OCT 35 GHAR. COUNT 

0103 00602 177775 S842 CCT 177775 -3 COUNTER 

0104 00603 177775 Sfl43 OCT 1777/5 -3 COUNTER-WORK I Nfl 

0105 00604 000000 LAWTB OCT 0 LAST TRACK WRITE 8UFFER ADDR . ♦ 1 

0106 00605 OOO0O0 LAKSB CCT 0 LAST SFCTOR WRITE RUFF , ADDR.+l 

0107 00606 0OH607 lAt26 BEE H E S 2 * BUFFER ADDR. 

0108 00607 053522 RES 26 ASC 15, WRITE SECTOR BUFFER OVERFLOWED 

00610 044524 

00611 042440 

00612 051505 

00613 041524 

00614 047522 

00615 02O102 

00616 0525O6 

00617 043105 

00620 051040 

00621 047526 

00622 042522 

00623 043114 

00624 047527 

00625 042584 

0109 00626 000036 CHA26 UCT 36 CHAR, COUNT 

0110 00627 0000O6 R A $ K 6 UCT 6 DMA ADDR. 

01 1 1 00630 000002 M AS6 A OCT 2 MAR/WCR ADDR. FOR CHAN. 6 

0112 00631 000003 H A S 7 A CCT 3 MAR/WCR ADDR. FOR CHAN. 7 

0113 00632 000000 WCCMH OCT 0 WRITE COMPLETE FLAG 

0114 0O633 1O0377 8844 OCT 18837 7 TRACK MASK 

01 15 00634 100080 WCCMw OCT 1080*0 TRACK/SECTOR ADDRESS 

0116 00635 020008 WDFAW OCT 0208«0 H.P. DISK ADDR. AND CLC BIT 

0117 00636 080000 WCIR OCT 0 STARTING ADDRESS 

0118 00637 080000 w DC NT CCT 0 2'S COMPL. WD. COUNT 

0119 00648 177600 S845 OCT 1776*0 SECTOR MASK 

0120 00641 000OO0 SCC HP OCT 0 SECTOR STRING COMPLETE FLAG 

0121 00642 008000 S 84 7 OCT 8 2'S COMPL. # OF SECTORS 



PA -at 


0122 

0123 

0124 


0125 
0 126 

0127 

0128 

0129 

0130 


0131 

0132 
PI 33 


0134 

0135 

0136 


0137 

0138 


0007 #151 SPECIAL DUC riSC DIAGNOSTIC FOR 2115/2116 


00643 00M0O0 

00644 000645 

00645 053522 
00046 027622 
0*»647 042O40 

00650 053517 

00651 051104 

00652 020103 
04653 047525 

00654 047124 

00655 02H105 

00656 054103 

00657 042523 

006 60 051511 

00661 053105 

00662 000032 

00663 124664 

00664 003232 

00665 0000(30 

00666 000667 
0066? 042522 

00670 051 1 17 

00671 051040 

00672 041125 

00673 051531 

00674 020123 

00675 052101 

00676 052125 

00677 051440 

00700 041111 

00701 052040 

00702 042125 
007^3 051111 

00704 0 47 107 

00705 020127 

00706 051057 

00707 051104 

00710 000042 

00711 000712 

00712 042111 

00713 051503 

00714 020116 

00715 047524 

00716 020122 

007 17 042501 

00720 042131 

00721 000016 

00722 000723 

00723 051105 

00724 043504 

00725 020324 

00726 051101 
03727 041513 

00730 051440 

00731 037440 

00732 000015 

00733 000000 


S 8 4 8 UCT 0 “ST. OF AVAILABLE MEM. 

I A l 2 7 U E F 6 E S 2 7 BUFFER ADDR. 

MES27 ASC 13, HP/RD WORD COUNT EXCESSIVE 


CHAP. COUNT 

RETURN FROM INTERRUPT 

RETURN ADDRESS 

DISK BUSY ERROR FLAG 

BUFFER ADDR. 

BUSY STATUS BIT DURING WR/RD 


CHA2S OCT 42 CHAR. COUNT 

IAL29 DEF MES20 BUFFER ADDR. 

MES29 ASC 7, DIRC NOT READY 


CHAR, COUNT 
BUFFER ADDR. 
TRACKS ? 


CHA30 OCT 15 CHAR. COUNT 

BUFF RSS 36 INPUT BUFFER 


CHA29 OCT 16 
I A E 3 0 DEF MES3a 
ME S 30 ASC 7, READ 


CHA27 0 C I 32 

5849 .IMP S850.I 

5 8 5 0 DEF W A I T t + 1 
BUFLG OCT V 
1AL28 DEE MES2* 

ME S 26 ASC 17, ERROR 



PAGE 0008 N1 SPECIAL DUO CISC DIAGNOSTIC FOP 2115/2116 


fell 39 

04777 

001000 

I AI 3 1 

TEE 

MES3 1 

8UFFFR A DDR 

• 

0140 

01000 

051 105 

ME S 3 1 

ASC 

13,RFAD 

PARAMETER INCOMPLETE 


01001 

040604 







0100? 

020120 







01003 

040522 







01004 

040515 







01005 

042524 







01006 

042522 







01007 

0201 1 1 







01«10 

047103 







01011 

047515 







01012 

0501 14 







01013 

042524 







01014 

042440 






014 1 

01015 

000031 

CHA31 

DCT 

31 

CHAR. COUNT 


0142 

010 16 

000000 

LARTB 

lct 

0 

LAST TRACK 

READ BUFFER 

0143 

010 17 

000000 

LA&SB 

CCT 

0 

LAST SECTOR 

READ BUFF. 

0144 

01020 

001021 

I A E 32 

IiEF 

HES39 

BUFFER ADOR 

• 

0145 

01021 . 

051 105 

HES32 

ASC 

14,RFAD 

TRACK BUFFER 

OVERFLOWED 


01022 

040504 







01 M23 

020124 







01024 

051 101 







01025 

041513 







01026 

020102 







01027 

052506 







01030 

043105 







01031 

051 1340 







01032 

047526 







01033 

042522 







01434 

043114 







01035 

047627 







01036 

042504 






0146 

01037 

000034 

CP A 32 

OCT 

34 

CHAR. COUNT 


0147 

01040 

001041 

I A E 33 

HEP 

MES3* 

BUFFER A D HR 

• 

0148 

01041 

051105 

HES33 

ASC 

7,PE*D 

SECTORS ? 



01042 

040504 







010 43 

020123 







01044 

042503 







01045 

052117 







010 4 6 

051123 







010 4 7 

020077 






0 1 49 

01050 

000016 

CHA33 

OCT 

16 

CHAR. COUNT 


0150 

01051 

001052 

1 A t 34 

DEF 

NES34 

BUFFER A D DR 

* 

0151 

01O52 

051105 

MES34 

ASC 

15,RFA0 

SECTOR BUFFER 

OVERFLOWED 


01453 

040504 







01054 

020123 







01055 

042503 







01056 

052117 







01057 

05 1040 







01060 

041125 







0 1 w 6 1 

043106 







01062 

042522 







01063 

020117 







01064 

053105 







01065 

051106 







01066 

046117 







01067 

053505 







A DDR . ♦ 1 
ADDR.+l 
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0 l r 0 7 0 

042040 





0152 

010 71 

000R35 

CHA34 

oci 

35 

char* COUNT 

0153 

0 1072 

00 0 0 0. 0 

R C C M P 

oct 

0 

READ COMPLETE FLAG 

0 154 

0 1O73 

0 3 W 0 R 0 

RCCMR 

OCT 

0 

track/sector address 

0155 

01074 

125075 

S8S2 

JMF 

S853. I 

RETURN FROM INTERRUPT 

0156 

01-17 5 

003744 

S85 3 

r. EE 

W A I T o ♦ l 

RETURN ADDRESS 

0157 

01W76 

000000 

CTFCK 

OCT 

0 

TRACK VALUE OF INPUT BUFFER 

0158 

01077 

000O00 

CSECT 

OCT 

0 

starting sector VALUE of input 

0159 

01100. 

000000 

C ME H 

t'CT 

0 

ST. ADDR. OF INPUT BUFFER 

0160 

01101 

00000P 

seed 

OCT 

0 

WORD * WITHIN SECTOR 

0161 

0110? 

000000 

SECTC 

OCT 

e 

2 * S COMPL. * OF sectors 

0 1 62 

01103 

003125 

S854 

D£F 

S 7 4 3 

LOOP LOCN. 

0163 

01 104 

000000 

RDIR 

ncT 

e 

STARTING ADDRESS 

0164 

01106 

002574 

S856 

r.EF 

WR I TP 

LOOP CONTROL 

0 1 65 

01106 

001107 

1 a£35 

l.t£F 

MES3* 

BUFFER ADDR. 

0166 

0 1 J 0 7 

042105 

MFS35 

ASC 

6, DECODE 

FRROR 


01110 

041517 






01111 

042105 






0111? 

020105 






01113 

051122 






01114 

047522 





0167 

01115 

000R14 

CHA35 

OCT 

14 

CHAR- COUNT 

0168 

01116 

001117 

I A L 36 

DEE 

MES3* 

BUFFER ADDR. 

0169 

01117 

051 105 

MES36 

ASC 

9, READ RARITY ERROR 


01120 

040504 






01121 

020120 






01122 

040522 






01123 

044524 






01124 

054440 






01125 

842522 






01126 

051117 






01127 

051040 





0170 

0113d 

.00002 1 

C H A 36 

OCT 

21 

CHAR. COUNT 

0171 

01131 

000000 

S867 

OCT 

P 

TEMP. 

0172 

01132 

001133 

I At 37 

CEF 

MES3? 

BUFFER ADDRESS 

0173 

01 1 33 

052122 

6ES37 

ASC 

1 6 , T a A C K 

SECTOR WORD NO. 


01134 

040503 






011 35 

045440 






01136 

020040 






01137 

020040 






01 140 

051505 






01141 

041524 






01142 

047522 






01143 

020040 






01144 

020040 






01145 

020127 






01146 

047522 






01147 

042340 






0115? 

0471 17 






01151 

027040 






01152 

020040 





0174 

01153 

000340 

CHA37 

OCT 

40 

CHAR. COUNT 

0175 

01154 

001155 

I A t 38 

PEF 

MES3K 

bufffr address 

0176 

01155 

047525 

MES38 

ASC 

14, Output 

INPUT 


01156 

W52120 






01157 

052624 






01 160 

020040 
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-01161 020040 
''01162 020040 

01163 020040 

01164 020111 

01165 047120 

01166 062524 

01167 020040 

01170 020040 

01171 020040 

01172 020040 


0177 

01173 

000034 

CHA38 

oct 

34 

CHAR. COUNT 

0178 

01174 

003126 

1743 

DEE 

S743*l 


0179 

01175 

001574 

PRCT 

PEF 

PROTn 

IND. 

0180 

01176 

003506 

1855 

OEF 

3855 

IND. 

0181 

01177 

003607 

S858 

SEF 

S7694 

IND. 

0182 

012-30 

003572 

S859 

DEE 

S 76 9 

IND, 

0183 

01201 

003573 

S860 

15 EF 

S769-v? 

IND. 

0184 

01202 

002042 

S86 1 

def 

T 4 

IND, 

0185 

01203 

004025 

1776 

C£F 

S 7 76 


0186 

01 204 

177577 

S86 2 

UC 1 

177577 

-129 WORKING 

0187 

01205 

177577 

S863 

OCT 

177577 

-129 

0188 

01206 

177643 

S86 4 

OCT 

1776-13 

-93 WORKING 

0189 

01207 

177643 

S865 

OCl 

1776<»3 

-93 

0190 

01210 

0/7777 

S86 9 

OCT 

777 77 

INTERRUPT TIME-OUT CONSTANT 

3191 

01211 

001457 

S870 

oef 

S 90 3 

WRITE INT, MISSING 

0192 

01212 

001464 

S 8 7 1 

PEF 

S 90 4 

READ INT. MISSING 

0193 

01213 

000000 

PFl AG 

OCT 

7 

SUPPRESS PRINT FLAG 

0194 

01214 

001215 

I At 43 

r-EF 

p E S 4 3 

puffer addr. 

0195 

01215 

053522 

PE £ 43 

ASC 

1 t, WRITE 

ABORT-TRACK 


01216 

044524 






01217 

042440 






01220 

040502 






01221 

047522 






01222 

052055 






01223 

052122 






01224 

040503 






01225 

045440 






01226 

020040 






01227 

020040 





0196 

01230 

000025 

CHA43 

oc I 

25 

CHAR. COUNT 

0197 

01231 

001232 

I A t 4 4 

kef 

M E $ 4 4 

buffer ADDR, 

0198 

01232 

051105 

ME544 

ASC 

10 r RFAD 

ABORT-TRACK 


01233 

040504 






01234 

020101 






01235 

041117 






01236 

051124 






01237 

026524 






01240 

051101 






01241 

041513 






01242 

020040 






01243 

020040 





0199 

01244 

000024 

CHA44 

OCT 

24 

CHAR. COUNT 

0200 

61245 

077400 

S 8 7 2 

oc i 

7740m - 

BIT 8 TO BIT 14MASK 

0201 

01246 

004217 

TRV 

I EF 

TRVER 

IND. ADDR. 

0202 

01247 

000000 

S5tf 0 

OCT 

0 

ACTIVE TRACK COUNTER 

0203 

01250 

003510 

S5C 7 

FIEF 

READ 

IND. ADDR. 

0204 

01261 

004024 

S589 

kef 

S6f 3 

IND. ADDR. 
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0205 

01252 

177577 

8510 

f,C I 

177577 

-201 OCTAL 


0 206 

61253 

020O0C 

S8E0 

r,ci 

2 00 0^ 

UPPEP BLANK 


020/ 

01254 

177600 

S 8 fi l 

OCT 

1 776*0 

WORKING -128 


0208 

01255 

177600 

S8S2 

OCT 

1 776*0 

-128 


0209 

01256 

004020 

1775 

» EF 

S775 

IND. 


021© 

01237 

004012 

I 7 7 3 C 

DEF 

S 77 3o 

IND. 


0211 

01 260 

103510 

READI 

LEF 

READ. I 

DOUBLE IND. 


0212 

01261 

060206 

S88 3 

L D A 

S 8 1 2 

377 TO A 


0213 

01 262 

010111 


ANr 

CARRV + 1 

RETAIN M.S. DIGIT 


©214 

01263 

001727 


ALF 

, ALF 



0215 

01264 

07000 1 


ST A 

1 



0216 

01265 

060475 


L DA 

S 8 3 1 

17740O TO A 


0217 

01266 

0101 12 


AM. 

CARRv + 2 

retain middle digit 


0218 

01267 

001727 


ALF 

, ALF 



0219 

01270 

03000 1 


1 OR 

1 



P22 0 

01271 

071226 


STA 

PES4.1 + 9 

SETUP PRINT MESSAGE 


0221 

01272 

060206 


L l) A 

SB 12 

377 TO A 


0222 

01273 

010112 


AM 

CARRv + 2 

RETAIN LOW DIGIT 


0223 

01274 

001727 


ALF 

, ALF 



0224 

01275 

071227 


STA 

MES4.-A+10 

SETUP PRINT MESSAGE 


0225 

01276 

125277 


JMF 

S 8 fi 4 . I 



0226 

01277 

003P55 

S88 4 

DEF 

S835+ J 



0227* 

**** INPUT SUBROUTINE- 1TY CR PR 

* * * * * 


0228 

01300 

000000 

S90« 

KQP 


RETURN-ENTERED WITH S804 

SETUP 

0229 

01301 

060173 


L DA 

S 80 1 

BUFFER ADDR. TO A 


0230 

01322 

070172 


STA 

S8O0 

RESTORE BUFFER ADDR. 


0231 

013O3 

064174 


t DP 

SB02 

R-FULL BUFFER COUNTER 


0232 

013O4 

060175 


i DA 

S 8P 3 

A°2 ASCII BLANKS 


0233 

01305 

17U172 

S7K0 

STA 

S800. 1 

FILL LOCN. WITp BLANKS 


0234 

01306 

034172 


IS? 

S 800 

INCR. BUFFER ADDRESS 


0235 

01307 

034001 


1S2 

1 

INCR, BUFFER COUNT 


0236 

01310 

026305 


JMP 

S7«0 

LOOP 


0237 

01311 

006400 


CLP 


CLEAR R 


0238 

01312 

074176 


STB 

SEX? 

CLE;AR EXIT FLAG 


0239 

01313 

102501 


II* 

1 

SV* PEG. TO A 


0240 

01314 

000066 


CLP 

,ELA 

DEC. BIT TO E 


0241 

01315 

064173 


\ DP 

S 80 1 

8UFFER ADDR. TO B 


0242 

01316 

060177 


l DA 

S804 

INPUT CHAR. LENGTH TO A 


0243 

01317 

00204 1 


$E* 

, RSS 

E= 1 r PR INPUT 


0244 

01320 

025323 


JMF 

* + 3 

E»0,TTY INPUT 


0245 

01321 

114101 


JSF 

10 18-1 

PR INPUT 


0 24 6 

©1322 

025324 


J HP 

* +2 

complete 


0247 

01323 

114104 


JSF 

1 04B • I 

TTY INPUT 


0248 

01324 

070201 


STA 

S807 

S A YE INPUT CHAR. COUNT 


0249 

01325 

001300 


WAR 


LSB TO MSB 


0250 

01326 

002P20 


S S A 


SKIP IF CHAP, COUNT EVEN 


0251 

01327 

002004 


I NA 


!F,NOT-ADD ONE 


0252 

0133© 

010202 


ANl 

S 808 

RETAIN A 0 — A 1 4 


0253 

01331 

04O173 


ADA 

S801 

ADD 1ST WORD BUFFER ADDRESS 

0254 

01332 

070203 


STA 

S 80 9 

LAST WORD BUFFER ADDRESS 


0255 

01333 

060173 


l DA 

S80 1 



0256 

©1334 

070172 


STA 

SB03 

RESTORE BUFFER ADDRESS 


0257 

01335 

06M205 


IDA 

sail 

UPPER/LOWER CHAR. MASK TO A 

0258 

01336 

070204 


STA 

S 8 1 0 

WORKING U/l CHAR. MASK 


0259 

01337 

06020 1 


1 DA 

S807 

actual input char, count 

TO A 

0260 

01340 

125300 


JhP 

S900 . 1 

EXIT-ACTUAL INPUT CHAR. 

COUNT- 

©261***** GET A CHARACTER 

suhpouti^e***** 
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0262 

01341 

000000 

S9C 1 

NOP 


RETURN 

0263 

01342 

064204 



L DP 

S 8 1 0 

WORKING U/L CHAR. MASK TO 8 

0264 

01343 

160172 



L D A 

S800- T 

PICKUP BUFFER WORD 

0265 

01344 

006020 



SSP 


SKIP IF LOWER HALF CHAR. 

0266 

01345 

001727 



ALF 

,alf 

ROTATE A LEFT 8 

026 7 

01346 

010206 



ANC 

S 8 t 2 

RETAIN A0-A7 

0268 

01347 

006021 



SSB 

,RSS 

SKIP IF UPPER CHAR, 

0269 

01350 

034172 



1 Si 

S800 

INCR. BUFFER ADDR. 

0270 

01351 

005200 



RBL 

■' '.J ' 

ROTATE UPPER-LOWER MASK 

0271 

01352 

074204 



8 TP 

S8J0 

RESTORE U/L CHAR. MASK 

0272 

01353 

070207 



ST A 

S813 

SAVE CHAR. IN TEMP. LOCN. 

0273 

01354 

060172 



L D A 

S 80 0 

CURRENT BUFFER ADDR. 

0274 

01355 

050203 



CPA 

S809 

compare with last buffer addr. 

0275 

01356 

025361 



JMP 

S70 1 

YES/ SET EXIT FLAG 

0276 

01357 

060207 

S7V2 

L DA 

S8 l 3 

RESTORE CHAR. IN A 

0277 

0136G 

125341 



.IMP 

S901 . I 

'EXIT-CHAR. IN A0-A7 

0278 

01361 

034 176 

S7« 1 

I S 2 

SEXT 

SET EXIT FLAG 

0279 

01362 

025357 



JMP 

8 7 02 

RETURN 

0280****'" ASCII-OCTAL 

VERIFICATION ROUTINE ***** 

0281 

01363 

000000 

S90 2 

NOP 


ENTERED WITH CHAR. IN A0-A7 

0282 

01364 

064234 



LDP 

S 8 1 9 

ASCI! O TO A 

0283 

01365 

050001 



CPA 

l 

COMPARE A TO B 

0284 

01366 

025405 



JMP 

S902 a 

CHAR. LEGAL-EXIT 

0285 

01367 

006004 



I NS 



0286 

61370 

054446 



CPB 

S830 

8*000070? 

0287 

01371 

002001 



HSS 


FINISHED-CHAR. ILLEGAL 

0288 

01372 

025365 



JMP 

5902*2 

NOT FINISHED 

0289 

01373 

07000 1 



ST A 

1 

A TO B 

0290 

01374 

080475 



IDA 

S831 

A8-A 15 MASK 

0291 

01375 

010450 



ANC 

ME823 

RETAIN A8-A15 

0292 

01376 

030001 



IOP 

1 

B0-B7 TO A 

0293 

01377 

070450 



STA 

MES29 

RESTORE MESSAGE 

0294 

01400 

060474 



L DA 

CHA23 

NO, OF CHAR. *39 

0295 

01401 

064447 



L DM 

I A D2» 

ST, ADDR. OF PRINT BUFFER 

0296 

01402 

114102 



JSM 

102B. ! 

OUTPUT ERROR MESSAGE 

0297 

‘01403 

102001 



HLT 

01 

TURN SW.15 OFF IF ON 

0298 

01404 

125363 



JMP 

S902. I 

ERROR RETURN 

0299 

01405 

035363 

S 9fc 2 A 

1 Si 

S902 

INCR. EXIT ADDRESS 

0300 

01406 

025404 



JMP 

S902A-1 

EXIT 

0301 ***** OCTAL 70 

ASCII 

conversion - 

6 DIGITS ***** 

0302 

01407 

000000 

CON V 1 

NO P 


OCTAL TO ASCII CONV. SUBR , 

0303*ENTF.RED WITH B 

»6 

EIGlf OCTAL NUMBER 

0304 

01410 

060120 



L DA 

CHARv 


0305 

01411 

070121 



STA 

CHAR- 

RESET ARRAY ADDRESS 

0306 

01412 

060116 



L DA 

MASK4 

ASCI? B TO A 

0307 

01413 

006020 



S$B 


MSB*0? 

0308 

01414 

060117 



L D A 

MASK 8 ' 

ASCI! t TO A 

0309 

01415 

170121 



STA 

CHAR# , I 

1ST DIGIT COMPLETE 

0310 

01416 

005700 



RLF 


ROTATE 4 LEFT 

0311 

01417 

06011 4 



I DA 

MASKS 

77 TO A 

0312 

01420 

010001 



ANC 

1 

B0-B2 TO A 

0313 

01421 

030115 



1 OR 

MASK* 

6X IN A0-A7 

0314 

01422 

130121 



TOP 

CHAR# , I 

COMPLETE 2ND DIGIT 

0315 

01423 

170121 



STA 

CHAR*, I 

RESTORE 1ST WORD 

0316 

01424 

034121 



IS? 

CHAR# 

INCR. ARRAY ADDR. 

0317 

0M25 

005723 



PLF 

r R8R 

ROTATE 3 LEFT 

0318 

01426 

060 1 1 4 



L DA 

MASKa 

77 TO A 
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r 



01427 

01000 1 


ANt 

1 

BM-B2 TO A 


0320 

01430 

03O115 


1 OR 

MASK* 

6 X IN A0-A7 


0321 

014 31 

001727 


ALF 

.alp 

ROTATE A LFFT R 


0322 

01432 

170121 


STA 

CHAR* , ! 

3RD DIGIT COMPLETE 


0323 

01433 

O05723 


«IF 

,RBR 

ROTATE 3 LEFT 


03 24 

01434 

0601 14 


L D A 

M ASKO 

7 7 TO A 


0325 

31435 

010001 


ANC 

1 

B0-B? TO A 


0326 

01436 

03k 1 15 


1 OR 

MASK* 

6X' IN A0-A7 


0327 

01437 

130121 


l OR 

CHAR*, I 

COMPLETE 4 TH DIGIT 


0326 

0 1440 

170121 


ST* 

CHARw , I 

RESTORE 2ND WORD 


0329 

0144 1 

034121 


IS? 

Char* 

INCR. AR&AY ADDR. 


0330 

01442 

M05723 


HLF 

,RBR 

ROTATE 3 LEFT 


0 331 

01443 

060 l 1 4 


1 DA 

MASK? 

77 TO A 


0332 

0 1444 

010001 


ANT 

1 

B0-B? TO A 


0333 

01445 

030115 


t OR 

mask* 

6X IN A0-A7 


0334 

014 4 6 

001727 


ALF 

, ALF 

rotate A LEFT b 


0335 

01447 

170121 


STA 

CHAR4, I 

5TH DIGIT COMPLETE 


0336 

01450 

005723 


RLF 

,RBR 

ROTATE 3 LEFT 


0337 

01451 

060114 


L DA 

MASKS 

77 Tf) A 


0338 

01452 

0 1 000 i 


ANt 

1 

B0-B? TO A 


0339 

01453 

030115 


I OR 

MASK* 

6X IN A0-A7 


0340 

01454 

130121 


i or 

CHARW, I 

6TH DIGIT COMPLETE 


0341 

0 1455 

170121 


sta 

CHARw, J 

RESTORE 3RD WORn 


0342 

01456 

125407 


JMP 

CON V l , I 

RETURN 


0343***** INTERRUPT 

ERROR 

SUB ROUT I ME 

* * * * * 


0 34 4 

01457 

000000 

S9C3 

NOR 


WRITE INTERRUPT ERROP 

0345 

0146P 

06164 1 


L DA 

CHA4w 

NO, OF CHAR. *23 


e346 

01461 

065524 


l-DF* 

I A 040 

ST. ADDR. OF PRINT 

BUFFER 

0347 

01462 

114102 


J SR 

1 0 2 B • I 

OUTPUT MESSAGE 


0348 

01463 

025471 


JMF 

S 9 0 5 

CONTINUE 


0349 

01464 

000000 

S9k 4 

NOP 




0350 

01465 

061556 


IDA 

C H A 4 I 

NO. OF CHAP. *22 


0351 

01466 

065542 


L DR 

I AP4 1 

ST. ADDR. OF n P 1 NT 

BUFFER 

0352 

01457 

114102 


J SB 

1 02B. 1 

OUTPUT MESSAGE 


0353 

0 1 4 7 K 

025473 


JMP 

S906 

CONT I NUE 


0354 

0147 1 

015475 

S 90 5 

JSR 

S907 

GET DMA WORD COUNT 


0355 

IU472 

125457 


JMP 

S903- I 

RETURN FROM WRITE 

INT. ERROR 

0356 

01473 

015475 

S9«6 

J SB 

S 90 7 

GET D M A WORD COUNT 


0357 

014 7 4 

125464 


JMP 

S904 . I 

RETURN FROM READ 1 NT . ERROR 

0358 

01475 

030000 

S92 7 

NOP 




0359 

01476 

064123 


1 DP 

DMA DR 

DMA OCTAL ADDR. TO 

R 

0360 

Ml 477 

054627 


CPR 

MASK* 

D*A CHAN, *6? 


0361 

0 1540 

025503 


JMP 

* + 3 

YES 


0362 

W15M1 

064631 


I DP 

M A S 7 A 

NO- AT)DR . *3 


0363 

01532 

025504 


JMP 

* + 2 



0364 

01503 

064630 


L DB 

MAS6* 

A DDR . «*? 


0365 

01534 

060107 


L DA 

MASK i 

177700 TO A 


0366 

01605 

011510 


ANC 

S908 

RETAIN A6-A15 


0367 

01506 

03000 1 


I OR 

1 

I OR WCR ADDRESS 


0368 

01507 

071510 


STA 

S908 

RESTORE S90S 


0369 

01510 

1M6500 

S9£ 8 

l IB 

C 

INPUT WORD COUNT 


0370 

01611 

114U3 


JSP 

CON V . I 

OCTAL TO ASCII CONVERSION 

0371 

01512 

06M1 10 


l DA 

CARR v 

SETUP PRINT MESSAGE 

0372 

01513 

071570 


STA 

MES4S+8 



0373 

01614 

060 l 1 1 


1 DA 

CARRY* 1 



0374 

01515 

071571 


STA 

MES4V+9 



0375 

01516 

060112 


L D A 

CARRY+2 
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0376 

'01517 

071572 


STA 

HES43+1 0 


037 7 

01520 

061573 


IDA 

CHA49 

NO. OF CHAR. *22 

0378 

01521 

065557 


1 DP 

I AD45 

ST. ADDR. OF PR * NT BUFFER 

0379 

01522 

114102 


JSR 

1028- I 

OUTPUT MESSAGE 

0380 

61323 

125475 


JMF 

8907 . I 

EXIT 

0381 

01524 

001525 

I At 40 

KEF 

HES40 

BUFFER ADDR. 

0382 

01525 

053522 

HE S 40 

A S C 

12, w»m 

INTERRUPT MISSING 


01526 

044524 






01527 

042440 






01530 

044516 






01531 

052105 






01532 

051122 






01533 

052520 






01634 

052O40 






01535 

046511 






01536 

051523 






01537 

044516 






01540 

043440 





0383 

0 154 1 

000027 

CHA40 

LC 1 

27 

CHAR. COUNT 

0384 

01542 

001543 

I A £ 4 1 

KEF 

RES4 1 

BUFFER ADDR. 

0365 

01543 

051105 

H£S 4 1 

A SC 

1 1 ,RFAD 

INTERRUPT MISSING 


01544 

040504 






01545 

0201 1 1 






01546 

047124 






0154 7 

042522 






01550 

851125 






01551 

050124 






01552 

0201 15 






01553 

044523 






01554 

051511 






61555 

047107 





0386 

01556 

000326 

CM A 4 l 

OCT 

26 

CHAR. COUNT 

0387 

01567 

001560 

I A I 4 2 

KEF 

RES43 

BUFFER ADDR. 

0388 

01560 

0421 15 

ME S 42 

ASC 

11, DMA WORD COUNT* 


61561 

043440 






01562 

053517 






01563 

051104 






01564 

020103 






01565 

047525 






01366 

047124 






01567 

036440 






01570 

020040 






01671 

020040 






01572 

020040 





0389 

01573 

000026 

CH A 42 

GCT 

26 

CHAR. COUNT 

0390***** PROTECT 1 

SUBRCUT 

1NE 

* * A * * 


0391 

01 974 

000000 

PRC TC 

i*OF 


PROTECT CHECK SUBROUTINE 

0392 

01575 

002400 


CL A 



0393 

01576 

071663 


STA 

S912 

CLEA 

0394 

01577 

071662 


STA 

S910 

CLEAR TRACK ADDR. COUNTER 

0395 

31600 

061255 


1 DA 

S382 

-128 TO A 

0396 

01601 

071254 


STA 

S88 ! 

RESET COUNTER 

0397 

01662 

064122 


LDB 

DADRi 

H.P. DISK ADDR. TO 8 

0398 

01603 

006804 


1 N8 


SET TO L.P. ADDR. 

0399 

01604 

060187 


1 DA 

MASK i 

1777P0 TO A 

0400 

01636 

011616 


ANT 

S9! i + 2 

RETAIN A6-A15 

0401 

01606 

030001 


I OR 

1 

8 TO A 
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04 0 2 

01607 

071616 


ST A 

S91 t+2 

RESTORE S9ll*2 

0403 

01610 

060107 


1 DA 

MASK 1 

17770O TO A 

04 04 

01611 

011617 


ANT 

S 9 T 1*3 

RETAIN A6-A15 

0 4 0 5 

01612 

030001 


1 OR 

1 

B TO A 

0 4 0 6 

01613 

071617 


STA 

S 9 l 1 +3 

RESTORE S911+3 

0 4 07 

0 1614 

061662 

S 9 1 1 

IDA 

S 9 1 0 

TR. AD0R. COUNTER TO A 

0 4 08 

01615 

001727 


ALF 

, ALF 

A 0 - A s TO A 3- A 1 3 

0409 

0 1616 

102600 


OTA 

0 

TRACK ADDR , TU DISK 

04 10 

016 17 

102500 


L I A 

0 

INPUT STATUS 

04 1 1 

01620 

001323 


HAH 

,RAR 

8IT2 TO BITP 

0412 

01621 

002011 


SLA 

, RSS 

HRITF ENABLEM? 

0413 

01622 

035663 


I Si 

S 9 1 2 

fcO-PROTECT COUNTER 

0414 

01623 

035662 


JS2 

S 9 1 0 

INCH. TRACK ADDRESS 

04 15 

01624 

035254 


I S 2 

S 88 t 

128 TRACKS FINISHED? 

0416 

01625 

025614 


JMF 

S91 1 

NO-LOOP 

0417 

016?6 

065663 


L D& 

S9 \ 2 

ACTUAL PROTECT COUNT 

04 18 

01627 

114113 


.ISP 

CON V . I 

CONVERT OCTAL TO ASCII 

04 19 

01630 

060206 


lda 

S 6 1 2 

377 TO A 

0420 

01631 

010111 


ANC 

CARRY+ 1 

RETAIN M.S. DIGIT 

0421 

01632 

031253 


I OH 

5 8 80 

BLANK A 8- A 1 5 

0422 

01633 

071657 


STA 

M E R 4 s + 1 2 

SETUP PRINT MESSAGE 

0 4 23 

01634 

0601 12 


LDA 

CARRY +? 

PICKUP ASCI! COUNT 

0424 

01635 

071660 


STA 

MES46+1 3 

PREPARE MESSAGE 

0425 

01636 

061661 


1 DA 

CHA4H 

CHAR. COUNT *2 8 

0426 

01637 

065642 


LDP 

I A D 4 6 

ST. ADDR. OF PRINT BUFFER 

0427 

01640 

114102 


JSH 

1029. 1 

OUTPUT MESSAGE 

0428 

01641 

125574 


JHF 

PROTO, I 

RETURN 

04 29 

01642 

001643 

I A£ 45 

r.EF 

MES46 

BUFF FR ADDR. 

0430 

01643 

047117 

HES45 

AS C 

14, NO, OF 

PROTECTED TRACKS* 


Id 1 6 4 4 

027040 






01645 

047506 






01646 

020120 






01647 

051117 






01650 

052165 






01651 

041524 






01652 

042504 






0 1653 

020124 






01654 

051101 






01655 

041513 






01656 

051455 






01657 

020040 






01660 

020040 





043i 

01661 

000034 

CHA45 

OCT 

34 

CHAP. COUNT 

0432 

01662 

000000 

S910 

OCT 

0 

TRACK ADDRESS COUNTER 

0433 

01663 

000000 

S 9 1 2 

OCT 

0 

PROTECT COUNTER 

0434 

01700 



LRG 

1700W 


0435 

0 1700 

000000 

S99 9 

HOP 


ERROR COUNT 

0436 

0.1 7 O 1 

000000 


NOP 


ERROR COUNT OVERFLOW 

0437 

0 1702 

001703 

1 AE52 

LEF 

HES53 

BUFFFR ADDR. 

0438 

01703 

041111 

MES52 

A SC 

19, BINARY 

PARAMETER EXCEEDS 72 CHARACTERS 


0 1704 

047101 






01705 

051131 






01706 

020120 






01707 

040522 






01710 

040515 






01711 

042524 






01712 

042522 
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01713 020105 

01714 054103 

01715 042505 

01716 042123 

01717 020067 

01720 031040 

01721 041510 

01722 040922 



01723 

040503 





01724 

052105 





01725 

051123 




0439 

01726 

000046 

CHA52 

UCT 

46 

0440 

02000 



ORG 

2808U 

0441 

02000 

060143 

START 

i DA 

CH A 1 1 

0442 

02001 

064127 


LD0 

1 ADI » 

0443 

02002 

114102 


jsb 

18 28. 

0444 

02003 

060125 


L DA 

S 100 

0445 

02004 

064124 


LDP 

AROMA 

0446 

02005 

114104 


JSB 

184B. 

0447 

02006 

060123 


L D A 

DMADR 

0448 

02007 

050144 


CPA 

DMA 0ft 

0449 

02010 

026014 


JMF 

5300 

0450 

02011 

059145 


CPA 

DM407 

0451 

02012 

026014 


JHP 

$300 

0452 

02013 

026000 


JMF 

START 

0453 

02014 

010114 

S3? 0 

A Nt 

MASKR 

0454 

02015 

070123 


8TA 

LMADW 

0455 

02016 

060170 


L DA 

CHAIR 

0456 

02017 

064146 


L D® 

I AD1P 

0457 

02020 

114102 


J$B 

1028. 

0458 

02021 

060125 


L DA 

5108 

0459 

02022 

064126 


LDB 

A D I A n 

0460 

02023 

114104 


jsb 

104B. 

0461 

02024 

060114 


LDA 

MASK? 

0462 

02025 

010122 


ANE 

D ADR < 

0463 

02026 

070O01 


STA 

1 

0464 

02027 

060122 


LDA 

DADR i 

0465 

02030 

001727 


ALF 

,alf 

0466 

0203! 

010114 


ANE 

MASK? 

0467 

02032 

001723 


ALF 

, RAR 

0468 

02033 

030001 


I OR 

1 

0469 

02O34 

070122 


STA 

DADRi 

0470 

02035 

115175 


JSB 

PROT. 

0471 

02036 

102501 


L I A 

01 

0472 

02037 

001700 


ALF 


0473 

02040 

002020 


S S A 


0474 

02041 

115246 


JSB 

TRY, » 

0475 

02042 

060502 

T 4 

LDA 

AWTBF 

0476 

02O43 

006400 


CL8 


0477 

02044 

174000 


STB 

0, 1 

0478 

02045 

002004 


INA 


0479 

02046 

050106 


CPA 

106B 

0480 

02047 

026051 


JMF 

*♦2 

0481 

02O50 

026044 


JMF 

T4 + 2 

0482 

02051 

075213 


STB 

PFLAW 

0483 

02052 

175183 


STB 

8854. 

0484 

02053 

076374 


8TB 

WRITS' 


CHAR. COUNT 

NO. OF CHAR .<*14 
ST. ADDR. OF PRINT BUFFER 
I OUTPUT MESSAGE 

NO. OF CHAR. -2 
BUFFER ADDR. 

I INPUT DMA ADDR. 

ASCII DMA ADDR. TO A 

EQUAL 06 

YES 

EQUAL 07 
YES 

no-get good address 

A0-A2 MASK 

RESTORE OCTAL DMA ADDRESS 
NO. OF CHAR.-2? 

ST. ADDR. OF PRINT BUFFER 
I OUTPUT MESSAGE 
NO. OF CHAR. *2 
BUFFER ADDR. 

I INPUT H.P, DISK ADDR. 

A0-A? MASK 
RETAIN 10-A2 

. A TO B 

ASCII ADDR. TO A 
LEFT 8 

RETAIN A0-A2 
LEFT 3 
B TO A 

RESTORE OCTAL H.P. DISK ADDRESS 
I CHECK PROTECT FEATURE 

9 W . REG. TO A 
8 1 T t ! TO RIT15 
SW.11-0? 

TRACK ADDR. CHECK SUBR. 

START OF BUFFER AREA 


LAST ADDR. OF BUFFER AREA 

FINISHED 

NOT FINISHED 

I CLEAR FLAGS 
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r 


04 85 

02454 

077102 


STP 

S601 


0 4 86 

020 55 

077510 


STB 

READ 


0487 

02056 

175251 


STB 

$509 . I 

CLEAR NOP’S 

0488 

02057 

1025O1 


L I A 

01 

SW. REG. TO A 

0489 

0 2 O 6 G 

001 200 


SAL 


BIT 14 TO BIT 15 

0490 

02061 

002020 


SSA 


BIT !5*07 

0491 

02062 

324270 


J HP 

S824 

MANUAL PRESET 

0492 

02o63 

102501 


LIA 

01 

SW.RFG. TO A 

0493 

02O64 

002020 


SS A 


BIT 15*0? 

0494 

02065 

026071 


J MB 

S703 

NO-PP INPUT 

0495 

02066 

060225 


i DA 

CHA 1 6 

NO. OF CHAR. *21 

0496 

02067 

U64211 


LDS 

I ADI 6 

ST. A DDR . OF PRINT BUFFER 

0497 

02070 

114102 


JS* 

1028. I 

OUTPUT MESSAGE 

0496 

0207 1 

U 60 20 0 

S7£ 3 

t DA 

S3W5 

CHAR. COUNT-72 

0499 

02072 

070177 


S T A 

S 80 4 

SETUP INPUT CHAR. LENGTH 

0500 

02073 

015300 


JSS 

S9°!0 

CALL INPUT SUBROUTINE 

050 1 

02074 

040226 


ADA 

S 8 1 6 

ADD -73 TO CHAR. COUNT 

0502 

02075 

O02020 


S S A 


POS.*ERROR 

0603 

02076 

026104 


J MR 

S 70 4 

NO ERROR 

050 4 

02077 

061726 


L DA 

C H A 5 3 

CHAR. COUNT *38 

0505 

02100 

365702 


l DR 

1 AD53 

ST. buffer addr. 

0 50 6 

02101 

114102 


JSR 

102B. I 

OUTPUT MESSAGE 

0607 

02102 

102 ?0 1 . 


HIT 

01 

TURN SW.15 OFF IF ON 

0508 

02103 

026071 


J MR 

S703 

RETURN FOR NEW INPUT 

0509 

02104 

002400 

S 7 £ 4 

CL A 



0510 

02105 

O70227 


ST A 

PwORn 

CLEAR BINARY PATTERN WORD 

0511 

02106 

070230 


STA 

CWORn 

WORK COMPLEMENT FLAG 

0612 

02107 

070231 


STA 

CBUFf 

COMPLEMENT BUFFER WORD 

0613 

O2110 

060233 


t DA 

S 8 1 8 


0514 

02111 

070232 


STA 

S 8 1 7 

SET COUNTER TO -16 

0515 

02112 

015341 


J SR 

S901 

-GET A CHAR. 

0516 

02113 

05M476 


HP* 

S832 

CHAR . =»BLANk ? 

0517 

02114 

0020O1 


fcSS 


MORE BLANKS-TAPE LEADER 

0518 

02115 

026122 


J MR 

S 7 0 4 A 

BLANKS FINISHED? 

0519 

02116 

064176 


i DR 

SEXT 

EXIT FLAG TO B 

0520 

021 17 

00601 1 


SLR 

f RSS 

FLAG*!? 

0521 

02120 

026112 


JMF 

* -6 

no-gft another char. 

0522 

02121 

026077 


JMF 

S 704 -5 

PRINT ERROR MESSAGE 

0523 

02122 

064176 

S704A 

t DR 

SEXT 

EXIT FLAG TO B 

0524 

02123 

004010 


SLR 


FLAG*?? 

0525 

02124 

026077 


JMF 

S704-5 

NO-PRINT ERROR MESSAGE 

0526 

02125 

002«01 


RSS 


blanks finished 

0527 

02126 

015341 

S 7 £ 5 

JSP 

S 90 1 

GET A CHAR. 

0528 

02127 

050234 


C p A 

S819 

CHAR , *0 

0629 

02130 

626140 


JMF 

S706 

YES 

0530 

02131 

050235 


CPA 

S 8 20 

CH AR . * 1 

0531 

02132 

026140 


J MR 

S7P6 

YES 

0532 

02133 

060265 


1 D* 

CHAlft 

ERROR-CHAR, C0UNT»43 

0533 

02134 

064236 


LDB 

I A B 1 h 

ST. A ODR . OF PRINT BUFFER 

0534 

02136 

114102 


JSR 

1028. I 

OUTPUT ERROR MESSAGE 

0535 

02136 

102001 


RLT 

01 

TURN SW. 15 OFF IF ON 

0636 

02137 

G26G66 


J MR 

S703-3 

GET NEW PATTERN FROM TTY 

0537 

02140 

006404 

S72 6 

CLR 

, I NB 

B M A SK-00000 t 

0538 

02141 

010001 


a N C 

1 

RETAIN A0 

0539 

02142 

064227 


L DR 

PwORn 

PATTERN WORD TO B 

0540 

02143 

001200 


R At 


A LEFT 1 

0541 

02144 

005200 


RBL 


B LEFT 1 
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3542 

02145 

03030! 


I OR 

1 

0543 

02146 

070227 


ST A 

PwORn 

054 4 

32147 

034232 


1 32 

S817 

0545 

02150 

026126 


J HP 

S705 

0546 

02151 

060227 


L DA 

PWORn 

0547 

02152 

001300 


WAS 


3548 

02153 

070227 


STA 

PWORn 

0549 

02154 

015341 


JS8 

S901 

0550 

02133 

050476 


CPA 

S832 

0551 

02156 

002001 


RSS 


0552 

02157 

034230 


1S2 

CWORn 

0553 

02160 

015341 


JS0 

S9t»l 

0554 

02161 

050476 


CPA 

S832 

0555 

02162 

002001 


l«S8 


0556 

02163 

034231 


IS* 

CBUFF 

0557 

02164 

060267 


L D A 

S823 

0558 

02165 

070266 


STA 

$822 

0559 

02166 

060230 


L D A 

CWORn 

0560 

02167 

001500 


FRa 


0561 

02170 

068375 


L D A 

S829 

0562 

02171 

070374 


STA 

S828 

0563 

02172 

060227 


t DA 

PwORn 

0564 

02173 

002040 

$78 7 

SEI 


0565 

02174 

003000 


CMA 


0566 

02175 

170266 


STA 

S822. ! 

0567 

02176 

034266 


IS* 

S822 

0568 

02177 

034374 


IS2 

S828 

0569 

0220® 

026173 


JMP 

S7<*7 

0570 

02201 

000000 

S788 

KOP 


0571 

02232 

060502 


L D A 

AWTBE 

0572 

02203 

006400 


CLB 


0573 

02234 

174000 


STB 

0.1 

0574 

02205 

002004 


INA 


0575 

02206 

050506 


CPA 

ARTBF 

0576 

02207 

026211 


.IMF 

*♦2 

0577 

02210 

026204 


JMP 

S708+3 

0578 

02211 

075700 


STB 

S999 

0579 

02212 

075701 


STB 

S99SI + 1 

0580 

02213 

0605S2 


IDA 

AWTBF 

0581 

02214 

070503 


STA 

WAWTb 

0582 

02215 

061205 


L DA 

S863 

0583 

02216 

071204 


STA 

S862 

0584 

02217 

102501 


1. I A 

Gi 

0585 

02220 

002020 


SSA 


0586 

02221 

026225 


JMP 

$7®9 

0587 

02222 

060406 


L DA 

CHAlu 

0588 

02223 

064376 


LDB 

I AD 10 

0589 

02224 

114102 


JSB 

1028. I 

0690 

02225 

060200 

S 78 9 

L DA 

5805 

3591 

02226 

070177 


STA 

S804 

0592 

02227 

015300 


JSB 

S900 

0593 

W2230 

040226 


ADA 

S8 1 6 

0594 

02231 

002020 


SSA 


0595 

02232 

026240 


JMP 

S710 

0596 

02233 

060445 


I DA 

CHA2I 

0597 

02234 

064421 


1 D» 

I AD2« 

0598 

02235 

114102 


JSB 

102B. I 


1NCL. OR B TO A 

RESTORE PATTERN WORD 

INCR. BIT COUNTER 

16 BITS NOT FINISHED 

PATTERN WORD TO A 

ADJUST WORD RIGHT 1 

RESTORE FINAL BIN. PATTERN WORD 

GET A CHAR, 

CHAR. -BLANK? 

YES 

SET COMPLEMENT WORD FLAG 
GET A CHAR, 

CHAR, -BLANK? 

YES 

8ET COMPLEMENT BUFFER FLAG 

RESET SECTOR BUFFER ADDRESS 
COMPL. WORD FLAG TO A 
A3 TO F 
-64 TO A 

RESET WORKING COUNT 
BIN. PATTERN WORD TO A 
E-0? 

NO-COMPL. EVERY WORD 
STORE IN BUFFER 
INCR. BUFFER ADDRESS 
I NCR , WORD COUNT 
BUFFER NOT FINISHED 
BEGINNING OF WRITE PROCESSOR 
ST. ADDR. -BUFFER 


LAST ADDR.+t 

FINISHED 

NO? FINISHED 

CLEAR ERROR COUNT 

CLEAR ERROR COUNT OVERFLOW 

JIESET ARRAY ADDR. 

-65 TO A 
-65 TO WORKING 
SW, REG. TO A 
BIT 15-3? 

NO-PR INPUT 

NO. OF CHAR. *14 

ST. ADDR. OF PRINT BUFFER 

OUTPUT MESSAGE 

CHAR. COUNT-72 

SETUP INPUT CHAR. LENGTH 

CALL INPUT SUBROUTINE 

ADD -73 TO CHAR. COUNT 

POS. -ERROR 

NO ERROR 

CHAR. COUNT-37 

ST. ADDR. OF PRINT BUFFER 

OUTPUT MESSAGE 



PAGE. 0 019 #01 SPECIAL DUC CISC DIAGNOSTIC FOP 21 1*5/0116 


0 599 

02236 

102001 


HLT 

oi 

0600 

02237 

026202 


.IMF 

S788+1 

0 601 

02240 

615341 

S 7 1 8 

JS« 

S 90 1 

0602 

02241 

050476 


CPA 

S832 

P001 

02242 

026236 


.IMF 

S 7 1 l 

0 002 

02243 

050477 


CPA 

S833 

0003 

02244 

026256 


JMF 

S 7 1 1 

01)04 

02245 

050508 


CPA 

S834 

0005 

02246 

026225 


J HP 

S709 

0W06 

02247 

050512 


CPA 

S836 

0W07 

0225O 

026265 


JMF 

S712 

0008 

02251 

M60445 


1 DA 

C H A 2 < • 

0009 

02252 

064514 


L DB 

I AD 2* * 

0010 

02253 

1 141U2 


j$e 

1 02 B - I 

00 11 

02254 

102001 


HIT 

81 

00 12 

02255 

026202 


JMP 

S708+ ! 

0013 

02236 

064176 

S 7 1 1 

1 DP 

SEXT 

0014 

02257 

80631 1 


SLh 

,RSS 

0015 

02260 

026240 


JMF 

S 7 1 0 

0016 

02261 

06O5O2 


L D A 

AWTRF 

0017 

02262 

050503 


CPA 

W AWTw 

0018 

02263 

027 125 


JMF 

S7 4 3 

001 9 

02264 

026376 


.IMF 

S720-3 

0020 

02265 

060602 

S 7 1 2 

L DA 

S842 

0021 

02266 

070603 


STA 

S843 

0022 

02267 

002400 


c LA 


0023 

02270 

070540 


ST A 

S840 

0024 

02271 

015341 


JSP 

S 90 ! 

0025 

02272 

05U476 


CPA 

S 8 3 2 

0026 

02273 

026307 


JMF 

S 7 1 3 

0027 

02274 

015363 


JSH 

S902 

0028 

02275 

026202 


JMF 

S70S-H 

0029 

02276 

064114 


LDP 

MASKS 

0030 

02277 

010001 


ANC 

1 

0031 

0230P 

064540 


1 DP 

S 840 

0032 

023O1 

005723 


HLF 

, RBR 

0033 

02302 

03080 1 


?0F 

1 

0034 

02333 

070540 


STA 

S840 

0035 

32304 

034603 


ISi 

S843 

0036 

02305 

026271 


JMF 

S7 12*4 

00.37 

02336 

026317 


JMF 

S715 

0038 

023O7 

064176 

S 7 1 3 

LDP 

SEXT 

0039 

02310 

00601 1 


SLP 

, RSS 

0040 

02311 

02627 1 


JMF 

S71 2 + 4 

0041 

02312 

060560 

S7 1 4 

1 DA 

CJH A 2^ 

0042 

02313 

064542 


l DP 

l AD24 

0043 

02314 

114102 


JSP 

1 02B . I 

0044 

02315 

102001 


HIT 

01 

0043 

02316 

026202 


JMF 

S708+1 

0046 

02317 

01334 1 

S 7 1 5 

JSP 

S 90 1 

0Q4.7 

02320 

050476 


CPA 

S832 

00 48 

02321 

026325 


JMF 

S716 

0049 

02322 

050501 


CPA 

S835 

0050 

02323 

026331 


JMF 

S717 

0051 

02324 

026312 


JMF 

S714 

0332 

02325 

064176 

S 7 1 6 

LDP 

SEXT 

0053 

02326 

004010 


SLP 



TURN SW. 15 OFF IF ON 

GET NEW TRACK PaPEM. FROM TTY 

get A CHAR. 

IS CHAP. A BLANK? 

YES-CHECK EXIT FLAG 
IS CHAP. A COMMA? 

YES-CHECK EXIT FLAG 
IS CHAR. A SLASH? 

PROCESS CONTINUATION 
IS CHAR. AT? 

YES-PROCESS PARAMETER 

CHAR. C0UNT*37 

ST. ADDR. OF PRINT BUFFER 

OUTPUT MESSAGE 

TURN SW. 15 OFF IF ON 

GET NEW TRACK PAREM. FROM TTY 

EXIT FLAG TO B 

EXIT FLAG*!? 

NC 

YES 

ANY F.NTRIES? 

NO-JUMP TO READ PROCESSOR 
YES-GET WRITE SECTOR PAR AM£RS . 
-3 TO A 

RESET CHAR. COUNTER 

CLEAR CHAR . HO). D 
GET A CHAR. 

IS CHAR. A BLANK? 

CHECK EXIT FLAG 

CHECK LEGAL I T Y - 0 - 7 

GET NEW TRACK PAREM. FROM TTY 

7 TO B 

RETAIN A0-A2 
PARTIAL TO P 
ROTATE LEFT 3 
I OR B TO A 
RESTORF RESULTS 
TRACK ADDR. FINISHED? 

NO-GFT ANOTHER CHARACTER 

continue parameter 

EXIT FLAG TO 8 
EXIT F L A G » 1 ? 

NO-GET a CHAR. 

CHAR. C0UNT*26 

ST. ADDR. OF PRINT BUFFER 

OUTPUT FRRnR MESSAGE 

TURN SW.15 OFF IF ON 

GET NEW TRACK PAPEH. FROM TTY 

GET A CHAR. 

IS CHAR. A BLANK? 

YES-CHECK EXIT FLAG 
IS CHAR. A - ? 

YES 

NO-PRINTOUT ERROR MESSAGE 
EXIT FLAG TO B 
EXIT FLAB-O? 
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0054 

02327 

026312 


JMP 

S714 

0055 

02330 

026317 


JMP 

$715 

0056 

02331 

060602 

S717 

lDa 

S842 

0057 

02332 

070603 


STA 

S843 

0058 

02333 

002400 


OLA 


0059 

02334 

070541 


STA 

S841 

0060 

02335 

015341 


JSB 

S 90 l 

0061 

02336 

050476 


f.pA 

S832 

0062 

02337 

026353 


JMP 

S718 

0063 

02340 

015363 


JSB 

S902 

0064 

02341 

026202 


JMP 

S708* 

0065 

02342 

064U4 


LD8 

MASK? 

0066 

02343 

010001 


AND 

1 

0067 

02344 

064541 


IDS 

S 84 l 

0068 

02345 

005723 


BLF 

r RBR 

0069 

02346 

030001 


I OR 

J 

0070 

02347 

070541 


STA 

S84 1 

0071 

02350 

<334603 


1 $2 

S843 

0072 

02351 

026335 


JMP 

S 7 1 7 ♦ 

0073 

02352 

026357 


JMP 

8719 

0074 

02353 

064176 

S7I8 

L DB 

SEXT 

0075 

02354 

00601 1 


8LB 

,RSS 

0C76 

02355 

026335 


JMP 

S7 1 7* 

0077 

02356 

026312 


JMP 

8714 

0078 

02357 

060541 

S7 19 

l DA 

S841 

007 9 

0236F. 

003004 


CMA 

, INA 

0080 

02361 

070541 


STA 

S 8 4 1 

0081 

02362 

060540 


l DA 

S840 

0082 

02363 

174503 


STA 

WAWTh 

0083 

02364 

034543 


182 

k A W T R 

0084 

02365 

002004 


! N A 


0085 

02366 

0352P4 


IS? 

S862 

0086 

02367 

026371 


JMP 

*♦2 

0087 

02370 

026401 


JMP 

S720 

0088 

02371 

03454 1 


I S 2 

S 84 1 

0089 

02372 

026363 


JMP 

S719 + 

0090 

02373 

064176 


LDP 

SEXT 

0091 

02374 

00601 1 


SLP 

,RSS 

0092 

02375 

026240 


JMP 

S710 

0093 

02376 

060503 


LDA 

WAWT« 

0094 

02377 

070604 


STA 

LAW T« 

0095 

02400 

026406 


JMP 

S72 1 

0096 

024O1 

0606«1 

S720 

LDA 

CHA2M 

0097 

02402 

064561 


LDP 

I A 02* 

0098 

02403 

114102 


JSB 

102B. 

0099 

02404 

102001 


ML1 

01 

0100 

02405 

026202 


JMP 

S708* 

0101 

02406 

060504 

S721 

L DA 

AWSBF 

0102 

02407 

070505 


STA 

WAWSR 

0103 

02410 

061207 


L DA 

S865 

0104 

02411 

071206 


8TA 

S864 

0105 

02412 

102501 


L IA 

01 

0106 

02413 

002020 


SSA 


0107 

02414 

026420 


JMP 

S722 

0108 

02415 

060420 


L DA 

CHA2R 

0109 

02416 

064407 


L DB 

I AD2« 

0110 

02417 

114102 


JSB 

102B. 


NO-ERROR PRINTOUT 
GET A CHAR. 

-3 TO A 

RESET CHAR. COUNTER 

CLEAR CHAR. HOLD 
PET A CHAR. 

IS CHAR. A BLANK? 

CHECK EXIT FLAB 
CHECK CEGAL I TY-0-7 
1 GET NEW TRACK PaREH. FROM TTY 
7 TO B 

RETAIN A0-A2 
PARTIAL TO B 
ROTATE LEFT 3 

1 OR B TO A 
RESTORE RESULTS 

TRACK SEO. CHAR. FINISHED? 

4 NO-GET ANOTHER CHARACTER 

continue parameter 

EXIT FLAG TO 8 
EXIT FLAG-1? 

4 NO-GET ANOTHER CHAR. 

OUTPUT ERROR MESSAGE 
SEQ. # 

2 * S COMPL. 

BLOCK SEO. FOR TRACKS 
ST. TRACK ADDR, OF BLOCK 
,1 STORE TRACK ADDRESS 

INCR. ARRAY ADDRESS 

INCR. TRACK ADDRESS 

64 ADDR. ENTERED? 

NO 

YES 

INCR. * OF TRACKS 
4 NOT FINISHED 

EXIT FLAG TO B 
EXIT FLAG-1? 

GET ANOTHER WRITE TRACK PAREM. 


GET WRITE SECTOR PARAMETERS 
CHAR, COUNT-29 
ST. ADDR. OP PRINT BUFFER 
I ERROR PRINTOUT 

TURN SW. 15 OFF IF ON 
l GET NEW TRACK PAREM. FROM TTY 

RESET ARRAY ADDRESS 
-86 TO A 
-86 TO WORKING 
SW. REG. TO A 
BIT 15-0? 

NO-PR INPUT 
NO. OF CHAR. -15 
ST. ADDR. OF PRINT BUFFER 
I OUTPUT MESSAGE 



PAGE 0*!2t * 6)2 SPECIAL DDC USC DIAGNOSTIC FOR 2115/2116 

f 


e 1 1 1 

0 2420 

060200 

S72 2 

IDA 

S805 

0112 

02421 

070177 


STA 

S 8 0 4 

0113 

02422 

015300 


JSP 

S9O0 

01 1 A 

02423 

040226 


A DA 

S 8 1 6 

0115 

02424 

002020 


S S A 


0 1 1 6 

02425 

026433 


JMF 

S723 

0117 

0 24 26 

060445 


IDA 

C H A 2 < 

0 116 

02427 

064421 


1. DF 

I AD2* 

0119 

02430 

114102 


JSB 

102B . I 

0 1 20- 

02431 

102O01 


HLT 

01 

0121 

02432 

026406 


JMP 

S721 

0122 

02433 

015341 

S 7 2 3 

jse 

S90 1 

0123 

02434 

050476 


CPA 

S832 

0124 

02435 

026451 


JMF 

S724 

0125 

02436 

05 0477 


CPA 

S833 

0126 

02437 

026451 


JMP 

S724 

0127 

O2440 

050500 


CPA 

S 8 3 4 

0128 

02441 

02642O 


JMF 

S722 

0129 

02442 

050513 


CPA 

S837 

0130 

02443 

026455 


JMF 

S725 

0131 

02444 

060445 


L DA 

CM A2 i 

0132 

02445 

064514 


L DP 

I A D 2 1 

0133 

02446 

1 141M2 


J SB 

102B. I 

0134 

02447 

1 0200 1 


hL! 

01 

0135 

02450 

026406 


JMP 

S72 1 

0136 

02451 

064176 

$7 2 4 

LDP 

SEXT 

0137 

02452 

00601 1 


SL« 

r RSS 

0138 

02453 

026433 


JMP 

S723 

0139 

02454 

026563 


JMP 

S733-3 

0140 

02455 

06O602 

S725 

L DA 

S 8 4 2 

0141 

02456 

070603 


STA 

S 8 4 3 

0142 

02 457 

002400 


CL* 


0)43 

02460 

O7O540 


STA 

9840 

0144 

02461 

015341 


JSP 

5901 

0145 

02462 

050476 


cpa 

S 83 2 

0146 

02463 

026477 


JMP 

S 7 26 

0147 

02464 

015363 


JSP 

S902 

0148 

02465 

O26406 


JMP 

S721 

0 1 49 

02466 

0641 14 


LDP 

MASK? 

0150 

02467 

010001 


ant 

1 

0151 

0 2 4 7 0 

0 64540 


1 DP 

S8 40 

0152 

02471 

0O5723 


BLF 

,RBR 

0153 

02472 

030001 


10P 

1 

0154 

02473 

070540 


STA 

S 8 4 O 

0155 

02474 

034603 


IS* 

S843 

0156 

02475 

026461 


JMP 

S725 + 4 

0157 

02476 

026507 


JMP 

S728 

0158 

02477 

064176 

S726 

i DP 

SEXT 

0159 

02500 

006O11 


SLR 

, RSS 

0160 

O2501 

026461 


JMP 

S725 + 4 

0161 

02542 

060560 

S 727 

lda 

CHA24 

0162 

025O3 

064542 


LDP 

I A D 2 4 

0163 

02504 

114102 


JSP 

102B . I 

0164 

02505 

102001 


HLT 

01 

0165 

02506 

026406 


JMP 

S7 2 i 

0166 

02507 

015341 

S728 

JSP 

S90 1 

016 7 

0251O 

050476 


CPA 

S832 


CHAP. COUNT *72 

SETUP INPUT CHAR. LENGTH 

CALL INPUT SUBROUTINE 

ADD -73 TO CHAR. COUNT 

POS. -ERROR 

NO ERROR 

CHAR*. COUNT-37 

ST. A DDR , OF PRINT BUFFER 

OUTPUT ERROR MESSAGE 

TURN SW.15 OFF IF ON 

GET NEW SECT. PARE*. FROM TTY 

GET A CHAR. 

IS CHAR. A 8LANK? 

YES-CHECK EXIT FLAG 
IS CHAR. A COHMA? 

YES-CHECK EXIT FLAG 
IS CHAR. A SLASH? 

PROCESS CONTINUATION 
IS Char, a $? 

YES-PROCESS PARAMETER 
CHAR. COUNT-37 

ST. aPDR. OF print buffer 

OUTPUT ERROR MESSAGE 

TURN SW. 15 OFF IF ON 

GET NEW SECT. PAREM. FROM TTY 

EXIT FLAG TO B 

EXIT FLAG-1? 

NO 

YES-JUMP TO WRI^E OPERATION 
-3 TO A 

RESET CHAR, COUNTER 

CLEAR CHAR. HOLD 
GET A CHAR. 

IS CHAR. A BLANK? 

CHECK EXIT FLAG 

CHECK LEGALITY-0-7 

GET NEW SECT. PAREM. FROM TTY 

7 TO R 

RETAIN A 3 — A 2 
PARTIAL TO B 
ROTATE LEFT 3 
I OR B TO A 
RESTORE RESULTS 
SECTOR ADDR. FINISHED? 

no-get another character 
continue parameter 
EXIT flag TO 3 
EXIT FLAG-1? 

no-get a char. 

CHAR. COUNT-26 

ST. ADDR. OF PRINT BUFFER 

OUTPUT ERROR MESSAGE 

TURN SW.15 OFF IF ON 

GET NEW SECT. PAREM. FROM TTY 

GET A CHAR. 

IS CHAR. A BLANK? 



PAGE 04?2 *02 SPECIAL DPC CISC Dl 


01b8 

02511 

026515 


JHP 

S729 

0169 

02512 

05850 1 


CPA 

S835 

0178 

02513 

026521 


JMP 

S730 

0171 

02514 

026502 


JMP 

S727 

0172 

02515 

064176 

872 9 

1 DP 

SEXT 

0173 

02516 

004010 


SLP 


0174 

02517 

026502 


JMP 

3727 

0175 

02520 

026507 


JMP 

S728 

0176 

02521 

06060? 

S73 0 

L D A 

S842 

0177 

0252? 

070603 • 


STA 

S84 3 

0178 

02523 

002400 


CLA 


0179 

02524 

070541 


STA 

S841 

0180 

02525 

015341 


I SB 

S90 1 

0181 

02526 

050476 


CPA 

S832 

0182 

02527 

026543 


JMP 

S731 

0183 

02530 

015363 


JS8 

S902 

0164 

02531 

026406 


JMP 

S721 

0185 

02532 

064H4 


LDB 

MASK? 

0186 

02533 

010001 


AND 

1 

0187 

02534 

064541 


L.DP 

S841 

0188 

02535 

005723 


«LF 

,RBR 

0189 

02536 

030001 


I OR 

l 

0190 

02537 

070541 


STA 

S84 1 

0191 

02540 

034603 


is/ 

S843 

0192 

02541 

026525 


JMP 

S730* 

0193 

02542 

026547 


JMP 

S732 

0194 

02543 

064176 

S731 

L PR 

SEXT 

0195 

02544 

006011 


SL8 

r RSS 

0196 

02545 

026525 


JMP 

$730* 

0197 

02546 

026502 


JMP 

S727 

0198 

02547 

06H540 

S 73 2 

L DA 

S840 

0199 

02550 

170505 


STA 

W AWSR 

0200 

02551 

034505 


IS/ 

WAWSM 

0201 

0255? 

060541 


t DA 

S841 

0202 

02553 

178505 


STA 

WAWStt 

0203 

02554 

034505 


IS? 

WAWSM 

0204 

02555 

035206 


IS/ 

S864 

0205 

02556 

026560 


JMP 

* + 2 

0206 

02557 

026566 


JMP 

S733 

0207 

02560 

064176 


i DP 

SEXT 

0208 

02561 

006011 


SLfc 

» RSS 

0209 

02562 

026433 


JMP 

S723 

0210 

02563 

060505 


LDA 

WAWSM 

0211 

02564 

070605 


STA 

LAWS* 

0212 

02565 

026574 


JMP 

WRITE 

0213 

02666 

068626 

S733 

I DA 

CHA26 

0214 

02567 

064606 


LDB 

IAD2* 

0215 

02570 

114102 


JSfi 

102B. 

0216 

02571 

102001 


HLI 

01 

0217 

02572 

026406 


JMP 

S72 1 

0218 

02573 

126574 

5620 

JMP 

WRITF 

0219 

02574 

000000 

WRITE 

NOP 


0220 

02375 

064123 


L DP 

DMA D» 

0221 

02576 

060107 


LDA 

MASK l 

0222 

02577 

013001 


ANC 

WR? 

0223 

0 26*40 

030001 


1 OR 

1 

0224 

02601 

073001 


STA 

WR2 


AGNOSTIC FOR 211S/2J16 
yes-check exit FLAG 

IS CHAR. A - ? 

YES 

NO-PRINTOUT ERROR MESSAGE 
EXIT FLAG TO B 
EXIT Fl.AG-0? 

NO-ERROR PRINTOUT 


GET A 

CHAR. 

-3 TO 

A 

RESET 

CHAR. CCjUNTER 

CLEAR 

CHAR. HOLD 

GET A 

CHAR. 

IS CHAR. A BLANK? 


CHECK EXIT FLAG 

CHECK LEBALITY-0-7 

GET NEW SECT. PARE* , FROM TTY 

7 TO B 

RETAIN AR-A2 

PARTIAL TO B 

ROTATE LEFT 3 

I OR B TO A 

RESTORE RESULTS 

SECTOR SEQ. CHAR, FINISHED? 

4 NO-SET ANOTHER CHARACTER 

continue parameter 

EXIT FLAG TO 8 
EXIT FLAG*!? 

4 NO-GET ANOTHER CHAR. 

OUTPUT ERROR MESSAGE 
STARTING SECTOR ADDRESS TO A 
t I PUT IN WRITE SECTOR ARRAY 
1 NCR . ARRAY ADDRESS 
NO. OF CONSECUTIVE SECTORS 

,i put in write sector array 

INCR. ARRAY ADDRESS 

85 ENTRIES IN SECTOR WRITE BUFF 

NO 

YES 

EXIT FLAG TO 8 
EXIT FLAG-1? 

GET ANOTHER SECTOR WRITE PAREM. 
, *» 

LAST BUFFER ADDR.+l 
PERFORM WRITE OPERATION 
NO. OF CHAR . **38 
ST. ADDR. OF PRINT BUFFER 
I OUTPUT ERROR MESSAGE 
TURN SW.15 OFF IF ON 
GET NEW SECT. PAREM. FROM TTY 
, 1 RETURN JUMP 
IND. RETURN 
DMA OCTAL ADBR. TO B 
177700 TO A 
RETAIN A6-A15 
I OR DMA ADDRESS 
RESTORE WR2 
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0 225 

0260? 

068107 


L D A 

MASK I 

0226 

02683 

013010 


ANL 

W R 7 

0227 

02684 

030301 


1 OR 

1 

0 226 

8?605 

073810 


STA 

W«7 

0229 

02686 

054627 


nps 

MASKo 

G230 

02687 

826612 


.IMP 

*♦3 

0 231 

0 2810 

064631 


L DP 

MAS7A 

0232 

0261 1 

826613 


JMP 

* + 2 

0233 

02612 

864630 


i DR 

M AS6 A 

0234 

02613 

060107 


l DA 

MASK t 

0235 

02614 

013002 


a N £ 

WR3 

0236 

02615 

030081 


I OR 

1 

to 237 

02616 

073082 


STA 

KR3 

0238 

82617 

060187 


L DA 

M ASK 1 

0239 

02628 

013084 


ANL 

WR4 

0240 

02621 

03000 1 


10h 

1 

0241 

02622 

073004 


STA 

WR4 

0242 

82623 

073087 


STA 

WR6 

0243 

02624 

06m 107 


i DA 

MASKS 

024 4 

82625 

013005 


ANC 

WR 5 

0245 

02626 

030001 


IOR 

1 

0246 

02627 

073005 


STA 

WR5 

0247 

02630 

064122 


1 DR 

D A DR » 

0248 

02631 

060107 


1. DA 

MASK 1 

0249 

02632 

013011 


ANC 

WR8 

0250 

02633 

030001 


l OR 

1 

0251 

02634 

073011 


STA 

WR8 

0252 

02635 

006004 


1 MB 


8253 

82636 

060187 


t. DA 

MASKS 

0254 

02637 

012777 


ANC 

WRi 

0255 

02640 

030001 


I OR 

1 

0256 

0264 l 

072777 


STA 

WRi 

0 257 

0264? 

060 l M7 


l. DA 

MASK s 

0258 

02643 

013015 


ANL 

WR9 

0259 

02644 

030081 


1 OR 

1 

0260 

02045 

073015 


STA 

WR9 

8261 

02046 

073040 


STA 

WRI i 

0262 

82647 

072764 


STA 

WRI A 

0263 

02650 

002400 


CL* 


0264 

02651 

070632 


STA 

WCOMP 

0265 

02652 

070641 


STA 

SCOHP 

0266 

82653 

070665 


STA 

BUFLN 

0267 

82654 

060502 


l Da 

A WTBP 

0268 

02655 

870503 


STA 

w awtr 

0269 

02656 

E60504 

S 7 2 4 

L D A 

AWS6P 

0270 

02657 

070505 


STA 

W A W S rt 

0271 

02668 

164503 


1 DP 

wart*, I 

0272 

02661 

034503 


I Sir 

WAWT» 

0273 

02662 

060503 


1. DA 

W A W T w 

0274 

02663 

050684 


CPA 

LAWTw 

0275 

02664 

034632 


i Si 

WCOMP 

0276 

02865 

060633 


IDA 

$844 

0277 

02666 

010634 


ANt 

wCOMw 

0278 

02667 

005727 


HLF 

,BLF 

0279 

02670 

03800 1 


! OR 

1 

0268 

02671 

078634 


STA 

WCOM* 

0281 

02672 

164505 

S734A 

LDB 

WAWS4, I 


177700 TO A 
RETAIN A6-A15 
I OR DP A ADDRESS 
RESTORE WR7 
DP A CHAN . »6 
YES 

NO-ADDR.-3 

ADDR.-? 

177700 TO A 

RETAIN A6-A15 

I OR MAR ADDRESS 

RESTORE WR3 

177700 TO A 

RETAIN A6-A15 

I OR MAR ADDRESS 

RESTORE WR4 

RESTORE WR6 

177700 TO A 

RETAIN A6-A15 

I OR WCR ADDRESS 

RESTORE WR5 

H.P. DISK ADDR. TO 8 

17770R TO A 

RETA IN A 6 - A 1 5 

! OR riLSK ADDRESS 

RESTORE KRR 

L.P. DTSK ADDR. TO R 

177700 TO A 

RETAIN A 6 - A 1 5 

I OR DISK ADDRESS 

RESTORE WR 1 

177700 TO A 

RETAIN A6-A15 

I OR DISK ADDRESS 

RESTORE WRo 

RESTORE WR 1 1 

RESTORE WRi A 

CLEAR FLAG 
CLEAR FLAG 
CLEAR FLAG 

RESET WRITE TRACK BUFFER ADDR. 

RESET WRITE SECTOR BUFFER ADDR 
PICKUP TRACK ADDR. 

INCR. ARRAY ADDRESS 
CURRENT ARRAY ADDR. TO A 
LAST BUFFER ADDR.+l? 

YES-SET WRITE COMPLETE FLAG 
TRACK MASK-140377 
RETAIN A15-A14, A0-A7 
10-A5 TO AA-A13 
TRACK ADDR. TO A 
RESTORE WCOMW 

PICKUP STARTING SECTOR ADDR, 
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0282 

02673 

034505 


IS2 

WAWSB 

0283 

02674 

060640 


L D A 

S845 

0284 

02675 

010634 


ANt 

NCOM* 

0285 

02676 

030001 


1 OR 

1 

0286 

02677 

070634 


STA 

WCOMw 

0287 

02700 

164505 


1 Dfi 

WAWSw, 

0288 

02701 

034505 


IS? 

W A WSw 

0289 

02702 

060505 


IDA 

W A WStt 

0290 

02703 

05O605 


CPA 

LAWSB 

0291 

02704 

03-464 1 


1S2 

SCOMP 

0292 

02705 

006003 


S 2 8 

,RSS 

0293 

02706 

026502 


JMF 

S727 

0294 

02707 

0740W0 


S T 8 

0 

0295 

02710 

001727 


ale 

, ALF 

0296 

02711 

001323 


RAW 

» R AR 

0297 

0271? 

040105 


• DA 

1058 

0298 

02713 

003004 


CMA 

, INA 

0299 

02714 

040106 


ADA 

1068 

0300 

02715 

002020 


S S A 


0301 

02716 

026754 

S735 

JMF 

S738 

0302 

02717 

074000 


STB 

0 

0303 

02720 

001727 


ALF 

, ALF 

0304 

02721 

001323 


RAW 

,RAR 

@305 

02722 

003004 


CMA 

t I N A 

0306 

02723 

070637 


STA 

WDCNT 

0307 

02724 

002400 


CLA 


0308 

02725 

030105 


I ow 

1058 

0309 

02726 

070636 


STA 

WDIR 

0310 

02727 

@07004 


CMP 

, 1NB 

031 1 

02730 

074642 


STB 

S847 

0312 

02731 

060105 


L D A 

1056 

0313 

02732 

070643 


STA 

S848 

0314 

02733 

060267 

S736 

L DA 

$823 

0315 

@2734 

070266 


STA 

S822 

0316 

02735 

060375 


LDA 

S829 

0317 

02736 

070374 


STA. 

S828 

0318 

02737 

160266 

S72 7 

LDA 

S822 * I 

0319 

02740 

170643 


STA 

S848. I 

0320 

02741 

@34266 


IS? 

S822 

0321 

02742 

03464J 


IS? 

3848 

0322 

02743 

034374 


IS* 

S828 

0323 

02744 

026737 


JMF 

S737 

0324 

02745 

034642 


IS? 

S847 

0325 

02746 

026733 


JMF 

S736 

0326 

02747 

@60375 


LDA 

S829 

0327 

02750 

010635 


A N C 

WDM Aw 

0328 

02751 

03012? 


I OK 

D ADR < 

0329 

02752 

070635 


STA 

WDMAW 

0330 

02753 

026761 


•IMF 

S739 

0331 

02754 

060662 

S738 

LDA 

CHA27 

0332 

02755 

064644 


L DR 

I AD2? 

0333 

02756 

114102 


J$8 

102B. I 

0334 

02757 

102001 


ML I 

01 

0335 

02760 

026202 


JMF 

$708*i 

0336 

02761 

060663 

S739 

l DA 

S849 

0337 

02762 

070006 


STA 

6 

@338 

@2763 

070007 


STA 

7 


I NCR. ARRAY ADDRESS 
SECTOR MASK-177600 
RETAIN A0-A6 
SECTOR ADDR. TO A 
RESTORE NCOMW-TR./SECT. COMPLETE 
I PICKUP # OF CONSEC. SECTORS 
INCR. ARRAY ADDRESS 
current ARRAY addr, TO A 
LAST BUFFER ADDR.+l 
YES-SET SECTOR STRING COMP. FLAG 
SECTOR VALUE >0? 

NO-EPROR printout 

B TO A 

MULTIPLY BY 64 
ADD 1ST AVAIL. LOCN. VALUE 
2 * S COMPL. 

SUBTR. lower from upper 

ERROR-BUFFER LENGTH EXCEEDS MEM. 
GOOD MEM. FIT 

MULTIPLY BY 64 

2 * S COMPL. OF TOTAL WORD COUNT 
WORD COUNT READY 

I OR START ADDR. OF AVAIL. MEM. 
OUTPUT AND ST. ADDR. READY 
2 8 S COMPL. # OF SECTORS 
RETAIN # OF SECTORS 

ST, OF AVAILABLE MEM . 

RESET SECTOR PATTERN ARRAY ADDR. 

RESET -64 

PICKUP PATTERN WORD 
STORE IN OUTPUT BUFFER 


SECTOR complete? 

NO 

ENTIRE BUFFER COMPLETE? 

NO 

YES 

RETAIN A6-A15 

I OR H.p. DISK ADDR, 

RESTORE WDM AW 

OUTPUT TO DISK 

CHAR, C0UNT*32 

ST. ADDR. OF PRINT BUFFER 

OUTPUT ERROR MESSAGE 

TURN SW. 15 OFF IF ON 

GET NEW WRITE PARAMETERS 

RETURN JUMP 

I NT. LOCN. 

I NT . LOCN. 
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6 

0 339 

02764 

1025O0 

W R 1 A 

L I A 

0 


034 0 

02765 

001727 


ALE 

, ALF 


0341 

02766 

002420 


SS A 



034 2 

02767 

026775 


4 HP 

S 7 3 9 a 


0343 

02770. 

064721 


L D A 

CHA2o 


0 34 4 

027 71 

064711 


t DR 

1 AD2u 


0345 

0277? 

114142 


J SR 

1 02B . I 


03 4 6 

02773 

102001 


RLT 

0 1 


034 7 

02774 

026764 


JMP 

WR1 A 


0348 

.02775 

103100 

S 7 3 9 A 

CLF 

0 

turn-off interrupt SYSTEM 

034 9 

02776 

060634 


l DA 

WCOMw 

TRACK/SECTOR ADDRESS 

0350 

02777 

1O26O0 

w R 1 

OTA 

0 

L.P. DISK ADDRESS 

0351 

0300H 

060635 


L D A 

WDMA* 

H.P. DISK ADDR. AND CLC 

0352 

03001 

102600 

wR2 

OTA 

p 

DMA CHAN. #6/7 

0353 

03402 

106700 

KR3 

CLC 

0 

MAR ADDR. #?/3 

0354 

03003 

060636 


• DA 

R D I R 

STARTING ADDRESS-BIT 15*0 

0355 

0 3004 

102600 

WR4 

OTa 

0 

MAR ADDR. #2/3 

0356 

03005 

102700 

WR5 

STC 

0 

WCR ADDR. #2/3 

0357 

03»06 

06O637 


L DA 

PBCNT 

2 ' S COMPL.-rtORD COUNT 

0358 

030O7 

102600 

*RC 

OTA 

0 

WCR ADDR. #2/3 

0359 

03010 

10370O 

WR? 

STC 

0, C 

DMA CHAN. #6/7 

0-36 0 

030 l 1 

1027O0 

WR8 

STC 

0 

H.P. DISK ADDRESS 

0361 

03012 

102100 


STF 

0 

TURN-ON INTERRUPT 

0362 

03-'- 13 

002400 


CLA 



0363 

®3«14 

070665 


STA 

bUFLR 

CLEAR FLAGS 

0364 

0 3/U5 

102500 

wRS 

l ! A 

P 

L.P. DISK ADDRESS 

0 36 5 

0 30 16 

002O1 l 


SLA 

,RSS 

BUSY BIT-1? 

0366 

030 17 

034665 


l Si 

BUFLu 

ERROR-SET FLAG 

0367 

03020 

06121O 


t DA 

S869 

77777 TO A 

0368 

03021 

0O20O6 


IN A 

, SZA 


0369 

03422 

027021 


3 Hr 

*-t 

TIME-OUT LOOP 

037 0 

03423 

10250 1 


L I A 

PI 

SN. REG. TO A 

0371 

03424 

001323 


HAS 

,RAR 


037 2 

03425 

001300 


RAF 


BIT 3 TO BIT 0 

0373 

03026 

000410 


SLA 


NO SUPPRESS? 

0374 

03427 

027032 


.IMP 

RA I T i + i 

BYPASS PRINTOUT 

0375 

03430 

103100 


CLP 

0 

TURN-OFF INTERRUPT 

0376 

03431 

115211 

* A I T 1 

.1 SR 

S370. I 

MISSING INTERRUPT 

0377 

0303? 

103.100 


CLP 

0 

TURN-OFF INTERRUPT 

6 37 3 

03033 

102501 


L I A 

P 1 

SW. REG. TO A 

0379 

0 32 3 4 

001323 


RAP 

,RAR 


0380 

03435 

0O1300 


RAP 


BIT 3 TO BIT 0 

0381 

03O36 

000010 


SLA 


NO SUPPRESS? 

0382 

030 37 

027O66 


JMP 

S 7 4 1 

SUPPRESS PRINT 

0383 

03044 

102500 

WR1 1 

1 IA 

P 

L.P. DISK ADDRESS 

0384 

0 3441 

000010 


SLA 


BUSY BIT-0? 

0385 

0344 2 

034665 


1 S> 

BUFLR 

NO-ERROR 

0386 

03443 

001323 


RAP 

, PAR 


0387 

03044 

001300 


RAP 


STATUS BIT 3 TO BIT P 

0388 

03445 

002O1 1 


SLA 

f PSS 

BITP-1? 

0389 

03 146 

O27O60 


JMP 

S740 

NO . 

0390 

03047 

061245 


i DA 

S872 

A 8 — A ). 3 MASK 

0391 

03450 

0 10634 


A N 1 

WCOM* 

RETAIN TRACK ADDR* 

0392 

03051 

001727 


ALP 

, ALF 

MOVE TO A 0 - A 6 

0393 

03052 

O70M0 1 


STA 

1 

A TO B 

0 394 

03053 

114)13 


JSP 

CONV. I 

CONVERT OCTAL TO ASCI I 

039 5 

03054 

02526 I 

S8C 5 

JMP 

S883 




PAGE 

0026 i 

*02 SPECIAL 

DUG CISC Dt 

0396 

03055 

061230 


1 DA 

C H A 4 * 

0397 

03056 

065214 


l DB 

I A D 4 * 

0398 

03057 

114102 


J SB 

1 0?B . 

0399 

03060 

060665 

S 74 0 

L DA 

BUFLu 

0400 

03061 

002003 


SZA 

,RSS 

0401 

03062 

027066 


JMP 

S 7 4 1 

0402 

03063 

060710 


1- DA 

CHA2H 

0403 

03064 

064666 


l DB 

I AD2A 

0404 

03065 

114102 


J SB 

1028. 

0405 

03066 

002400 

S74 1 

CLA 


0406 

03U67 

07P665 


S T A 

BUFL« 

0407 

03070 

060641 


L DA 

SCOHP 

0408 

03071 

002003 


SZA 

,R$S 

0409 

03O72 

026672 


.IMF 

S7 34 4 

0410 

03073 

002400 


CLA 


0411 

03074 

070641 


STA 

scomw 

0412 

03075 

060632 


L DA 

WCOMW 

04 13 

03076 

002003 


sz« 

,RSS 

0414 

03077 

026656 


.IMF 

S734 

0415 

03100 

002400 


CLA 


0416 

03101 

070632 


STA 

NCOMP 

0417 

031O2 

00PP00 

S66 1 

NOP 


0418 

03103 

102501 


L I A 

01 

0419 

03104 

001300 


WAR 


0420 

03105 

002011 


$LA 

,RSS 

0421 

03106 

027125 


.IMF 

S 74 3 

0422 

03107 

060231 


I.DA 

CBUFF 

0423 

031 IP 

00201 1 


SLA 

, RSS 

0424 

03111 

026654 


.IMF 

S734- 

0425 

03112 

060375 


1 DA 

S829 

0426 

03113 

070374 


STA 

S828 

0427 

03114 

060267 


1 DA 

S823 

0428 

03115 

07P266 


STA 

S822 

04 29 

031 16 

160266 

S74 2 

L DA 

S822. 

0430 

03117 

003000 


DMA 


0431 

03120 

170266 


STA 

S822. 

0432 

03121 

034266 


1 S2 

S 322 

0433 

03122 

034374 


IS2 

S828 

0434 

03123 

027116 


.IMF 

S742 

0435 

03124 

026654 


JMP 

S734- 

0436 

03125 

000000 

$7 4 3 

K OF 


0437 

03126 

060506 


L D A 

ART8P 

0438 

03127 

070507 


STA 

K A R T h 

0439 

03130 

061205 


L DA 

S 863 

0440 

03131 

071204 


STA 

S862 

0441 

03132 

102501 


L IA 

01 

0442 

03133 

002020 


S S A 


0443 

03134 

027140 


.IMP 

S 7 44 

0444 

03135 

060732 


L DA 

CHA3M 

0445 

03136 

064722 


L DB 

IAD3m 

0446 

03137 

114102 


J SB 

1028. 

0447 

03140 

060200 

S744 

l.DA 

S8P5 

0446 

03141 

070177 


STA 

S804 

0449 

0314? 

015300 


jsb 

S900 

0450 

03143 

040226 


ADA 

S816 

0451 

03144 

002020 


S S A 


0452 

03145 

027153 


.IMP 

S745 


AGNOSTIC FOR 2115/2116 


CHAR. COUNT-20 
ST. ADDR. OF PRINT BUFFER 
! OUTPUT ERROR MESSAGE 

FLAG-1? 

. 

CHAR. COUNT- 49 
ST. ADDR. OF PRINT BUFFER 
I OUTPUT ERROR MESSAGE 


SECTOR STRING COMPLETE FLAG 
FLAG>«*? 

NO-CONTINUE SECTOR PROCESSING 
YES 

CLEAR FLAG 

TRACK WRITE COMPLETE FLAG 
F L A G > 0 ? 

NO-GET NEW track VALUE 

YES 

CLEAR FLAG 
JUMP RETURN 
SW. PFG. TO A 
BIT 1 TO BIT 0 
BIT 1-1? 

COMPL. PATTERN BUFFER 

2 NO-WRITE SAME PATTERN BUFFER 

YES 

-64 RESET 

SECTOR BUFFER a DOR. 

RESET 

I PICKUP WORD 

COMPL. WORD 

1 RE3T0RE WORD 
INCR. ADDR. 

64 WORDS FINISHED? 

LOOP 

2 WRITE COMPL. PATTERN 
BEGINNING OF READ PROCESSOR 

RESET ARRAY ADDR. 

-65 TO A 
-65 TO WORKING 
SW. REG. TO A 
BIT 15-0? 

NO. OF CHAR. -13 
ST. ADDR. OF PRINT BUFFER 
I OUTPUT MESSAGE 

CHAR* COUNT-72 
SETUP INPUT CHAR. LENGTH 
CALL INPUT SUBROUTINE 
ADD -73 TO CHAR. COUNT 
POS. -ERROR 
NO ERROR 
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0453 

031 46 

060445 


l Da 

C H A 2 l 

04 5 4 

0 314 7 

054421 


l DR 

I A D 2 1 

0455 

03150 

114102 


.ISP 

1826 . I 

0456 

03151 

102O01 


ML f 

01 

04 57 

0315? 

027126 


.IMF 

S743+1 

0458 

03153 

015341 

S 7 4 5 

JSP 

S901 

0 4 59 

03154 

050476 


CPA 

S 832 

0460 

03155 

027171 


.IMP 

S746 

0461 

W3 1 56 

050477 


CPA 

S833 

0 4 62 

03157 

027171 


.IMP 

S746 

0463 

03160 

050500 


CPA 

S834 

0464 

03161 

P27140 


JMP 

8744 

0465 

03162 

050512 


CPA 

5836 

P4 66 

03163 

027200 


JMP 

S747 

0 4 67 

03164 

06O445 


I DA 

CHA2I 

0468 

03165 

064514 


L Dfe 

I A 023 

0 4 69 

93166 

114102 


J SR 

1 02B • I 

0 4 70 

031 67 

102001 


ML 1 

0 1 

0471 

03170 

027126 


.IMP 

S 7 43 + 1 

0472 

03171 

064176 

S 7 4 6 

t DP 

SEXT 

0473 

03172 

006011 


SLR 

,RSS 

04 7 4 

03173 

027153 


JMP 

S 7 45 

0 4 75 

03174 

060506 


I.DA 

ARTBR 

0476 

03175 

85*3507 


L P A 

W A R T P 

0477 

05176 

02M042 


.IMP 

14 

0478 

03177 

02731 1 


JMP 

S755-3 

0001 

0320O 

068602 

S 7 4 7 

l DA 

S842 

0002 

03201 

870003 


ST A 

S843 

0 003 

03202 

002400 


lLA 


000 4 

032U3 

070540 


ST A 

S848 

0005 

03204 

015341 


JSB 

S 9 8 t 

0006 

03205 

058476 


CPA 

S 8 3 2 

0007 

03246 

027222 


JMP 

S 7 4 8 

0008 

03207 

015363 


JSP 

$902 

0009 

03210 

027126 


JMP 

$743 + 1 

0010 

03211 

0641 14 


LDP 

M A S K V 

0011 

03212 

01008 1 


ANL 

1 

00 1 2 

03213 

064540 


L DP 

S 8 4 0 

OU13 

03214 

005723 


RLE 

,R8R 

0014 

03215 

030OL1 


I 0* 

1 

00 15 

03216 

078540 


ST A 

S840 

0M16 

03217 

034603 


IS/ 

S843 

0017 

03220 

027204 


JMP 

S7 47+4 

0018 

03221 

027232 


JMP 

S7 50 

0k*19 

03222 

864176 

S 7 4 8 

l DR 

SEXT 

0U20 

0 3223 

00681 1 


SLR 

,RSS 

0021 

03224 

027284 


JMP 

S747+4 

0022 

03226 

061015 

S 7 4 9 

1. DA 

C H A 3 i 

0023 

03226 

064777 


t DR 

I A P3 1 

0 0 24 

03227 

114102 


JSP 

1028- I 

0025 

03230 

102801 


ML f 

01 

0026 

03231 

027126 


.IMF 

S743+1 

0027 

03232 

015341 

S750 

JSP 

S 90 1 

0028 

03233 

050476 


CPA 

S832 

0029 

03234 

027240 


JMP 

S 75 1 

0030 

03235 

050501 


CPA 

S 835 

0031 

C3236 

027244 


JMP 

S 7 52 


CHAR. COUNT *37 

ST. ADDR. OF PRINT BUFFER 

OUTPUT MESSAGE 

TURN SW . 15 OFF IF ON 

GET NEW TRACK PAREM. FROM TTY 

GET A CHAR. 

IS CM AR . A BLANK? 

YES-CHECK EXIT FLAG 
IS Char, a comma? 

YES-CHFCK EXIT FLAG 

IS char, a slash? 

PROCESS CONTINUATION 
IS CHAP. AT? 

YES-PPOCESS PARAMETER 

CHAR. COUNT *37 

ST. A BOR . OF PRINT BUFFER 

OUTPUT MESSAGE 

TURN SW. 15 OFF IF ON 

GET NEW TRACK PAREM. FROM TTY 

EXIT FLAG TO B 

EXIT P L AG* 1 ? 

NO 

YES 

ANY ENTRIES? 

NO-RF -ENTER FROM TOP 

YES-GET READ SECTOR PARAMETERS 

-3 TO A 

RESET CHAR. COUNTER 

CLEAR CHAR. HOi ‘ 

GET 4 CHAR . 

IS CHAR. A BLANK? 

CHECK EXIT FLAG 

CHECK LEGALI.TY-^-7 

GET NEW TRACK PAREM. FROM TTY 

7 TO b 

RETAIN A0-A2 
PARTIAL TO R 
ROTATE LEFT 3 
I OR B TO A 
RESTORE RESULTS 
TRACK ADDR. FINISHED 
NO-GET ANOTHER CHARACTER 
CONTINUE PARAMETER 
EX.IT FLAG TO 8 

ex-it flag* t ? 

NO-GET A CHAR. 

CHAR. COUNT *25 

ST. ADDR. OF PRINT BUFFER 

OUTPUT ERROR MESSAGE 

TURN SW. 15 OFF IF ON 

GET NEW TRACK PARAMETER FROM TTY 

GET A CHAR. 

IS CHAR. A BLANK? 

YES-CHFCK EXIT FLAG 
IS CHAR. A - ? 

YES 
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0032 

03237 

027225 


JMP 

S749 

0033; 

03240 

064176 

3751 

L DR 

SEXT 

0034 

03241 

004010 


SLR 


0035 

03242 

027225 


JMP 

S749 

0036 

03243 

027232 


JMP 

S750 

0037 

83244 

060602 

S752 

l DA 

S842 

0038 

03245 

070683 


STA 

S 84 3 

0039 

03246 

002480 


CL * 


004 0 

03247 

070541 


S-TA 

S84 1 

004 1 

03250 

015341 


.ISF 

S90 1 

0042 

03251 

050476 


rpA 

S832 

0043 

03252 

027266 


.IMP 

S753 

0044 

03253 

015363 


JS8 

S902 

0045 

83254 

027 126 


JMP 

S743+1 

00 4 6 

03255 

0641 U 


(. D8 

MASK? 

0047 

03256 

010001 


ANT 

1 

0048 

03257 

064541 


LDB 

S84 i 

0040 

03268 

005723 


RLF 

. RBR 

0050 

03261 

030081 


I OR 

1 

0051 

03282 

070541 


RTA 

S841 

0052 

03263 

034603 


is* 

S843 

0053 

03264 

027250 


JMP 

S752*4 

0054 

03265 

027272 


JMP 

S754 

0055 

03266 

064176 

S7E 3 

LD« 

SEXT 

0056 

03267 

0060 1 1 


SLR 

,RS$ 

0057 

03270 

027250 


JMP 

S752*4 

0058 

03271 

027225 


JMP 

S749 

0050 

03272 

060541 

S 7 £ 4 

1. DA 

S84i 

0060 

03273 

003004 


CM A 

t I N A 

0061 

03274 

070541 


STA 

S841 

0062 

03275 

060540 


t DA 

S3 48 

0063 

03276 

170587 


STA 

WART^, 

0064 

03277 

034507 


IS? 

W A RT m 

0065 

03300 

002004 


I NA 


0 0 66 

03301 

035204 


IS* 

S 862 

0067 

03302 

027304 


JMP 

* + 2 

0068 

03303 

0273U 


JMP 

S755 

0060 

03384 

034541 


I S3 

S 84 1 

0W70 

03305 

027276 


JMP 

S 754 *4 

0071 

03306 

064176 


t D8 

SEXT 

0072 

03387 

0060 1 1 


SLR 

,R$S 

0073 

03310 

027 t 53 


IMF 

$7 45 

0074 

03311 

060507 


l DA 

WART« 

0075 

03312 

071016 


STA 

LARTB 

0876 

03313 

027321 


.IMF 

S756 

0077 

03314 

061037 

S765 

IDA 

CHA3? 

00 7 8 

03315 

065020 


L DB 

IAD3» 

8079 

03316 

114102 


J SR 

102B. I 

0080 

03317 

102001 


HLT 

01 

.0081 

03320 

027126 


JMP 

S 7 43* 1 

0082 

03321 

060510 

S7£6 

t DA 

ARSBP 

0883 

03322 

070511 


STA 

WARS« 

0084 

03323 

061207 


l DA 

S865 

0085 

03324 

071206 


STA 

S 864 

0086 

03325 

102581 


1 I A 

01 

0087 

83326 

002020 


ss* 


0088 

03327 

027333 


JMP 

S757 


*• 

# 

NO-PRINTOUT ERROR MESSAGE 
EXIT FLAG TO 8 
EXIT FLAG-0? 

NO-ERROR PRINTOUT 
GET A CHAR. 

-3 TO A 

RESET CHAR. COUNTER 

CLEAR CHAR. HOLD 
GET A CHAR, 

IS CHAR. A BLANK? 

CHECK EXIT FLAG 

CHECK LEGALITY-0-7 

GET NEW TRACK PAREM. FROM TTY 

7 TO 9 

RETAIN A0-A2 

PARTIAL TO R 

ROTATE LEFT 3 

I OR 8 TO A 

RESTORF RESULTS 

TRACK SEQ. CHAR. FINISHED? 

NO-GET ANOTHER CHARACTER 
CONTINUE PARAMETER 
EXIT FLAG TO B 
EXIT FLAG-i? 

NO-GET ANOTHER CHAR. 

OUTPUT ERROR MESSAGE 
SEQ. # 

2,S COMPL. 

BLOCK SEO. FOR TRACKS 
ST. TRACK ADDR. CF BLOCK 
! STORE TRACK ADDRESS 
" I NCR . ARRAY ADDRESS 
INCR. TRACK ADDRESS 
64 ADDR. ENTERED 
NO 
YES 

INCR. * OF TRACKS 
NOT FINISHED 
EXIT FLAG TO B 
EXIT FLAG-1? 

GET ANOTHER READ TRACK PARAMETER. 

LAST TRACK READ BUFFER A DDR . ♦ 1 * 

LAST TRACK READ BUFFER ADDR.M 

GET READ SECTOR PARAMETERS 

CHAR. COUNT-28 

ST. ADDR. OF PRINT BUFFER 

ERROR PRINTOUT 

TURN SW.15 OFF IF ON 

GET MEW TRACK PAREM. FROM TTY 

RESET ARRAY ADDRESS 
-85 TO A 

RESET WORKING COUNTER 
SW. REG. TO A 
BIT 15-P? 

NO-PR INPUT 
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0P89 03331’ 

0 090 0 3331 

0*191 0333? 

0092 03333 

0093 03334 

0094 03335 

0095 0333b 

P096 03337 

009/ 03340 

•0M98 033^1 

0099 33342 

0100 03343 

0101 03344 

0102 03345 

0103 03346 

0104 03347 

0105 03350 

0106 03351 

0107 03352 

0108 03353 

0 1 09 03354 

W110 03355 

0111 03356 

0112 03357 

0113 03360 

0114 03361 

0115 03362 

0116 03363 

0117 03364 

0118 03365 

0119 03366 

0120 03367 

0121 03370 

0122 03371 

0123 03372 

0124 03373 

0125 03374 

0126 03375 

3127 03376 

0128 03377 

0129 0340O 

0130 O3401 

0131 03402 

0132 03403 

R 1 33 03404 

0134 03405 

0135 034o6 

0136 03407 

0137 03410 

0138 034U 

0139 03412 

0140 03413 

0141 03414 

0142 03415 

0143 03416* 

0144 03417 

0145 03420 


061050 

065040 

114102 

064200 S 7 5 7 

370177 
01530P 
04O226 
002020 
027346 
06U445 
064421 
114102 
1P200 1 
027321 

015341 S 7 5 8 
050476 
027364 
050477 
027364 
050500 
027333 
050513 
027370 
060445 
064514 
114102 
102001 
027321 

064176 S7S 9 
0063 1 1 
027346 
027476 

060602 S7fc 0 

070603 

002400 

070540 

015341 

050476 

027412 

015363 

027321 

0641 14 

010001 

064540 

005723 

030001 

070540 

034603 

027374 

027422 

064176 S761 

00601 1 
027374 

061015 S76 2 

064777 
1 14102 
102001 


ID* C H A 3 * 
LD8 I A D 3 * 
•ISP 1028-I 
l DA S 805 
ST* S 8 0 4 
J SB S 90 O 
ADA S 8 1 6 
S S A 

JMP S758 
IDA C H A 2 t 
IDS IAP21 
JSB 102B.I 
HLT Cl 
-IMP S 7 5 6 
J SB S901 
CPA S832 
JMP S759 
CPA S 8 3 3 
•IMP S759 
CPA S 8 34 
•IMP S757 
CP* S 8 3 7 
-IMP S760 
IDA C H A 2 1 
L DP I A 0 2 3 
-1 SB 1028-1 
ML T 01 
JMP S756 
LDP SEXT 
SLB ,RSS 
JMP S758 
-IMP S 768-3 

I DA 5842 
ST* S843 
CL A 

STA S 8 4 0 
J SB S901 
CPA S832 
JMF S 76 1 
J S B S9 5) 2 
JMP S 75 6 
t DH MASKJ 
AN). 1 
l DH S 8 4 0 
ftLF ,RRR 
IOB 1 
STA S 8 4 0 
IS/ S843 
JMP S 7 6 0 * 4 
JMP S 7 6 3 
LDB SEXT 
SLB ,RSS 
JMP 5760+4 
I.DA CHA3» 
LDP I A D 3 1 
J SB 102B-I 
HLT 01 


NO. OF CHAR , » i 4 

ST. ADDR. OF print buffer 

OUTPUT MESSAGE 

CHAR. COUNT-72 

SETUP INPUT CHAR. LENGTH 

CALL INPUT SUBROUTINE 

ADD -73 TO CHAR. COUNT 

POS. -ERROR 

NO ERROR 

CHAR. COUNT-37 

ST. ADDR. OF PRINT BUFFER 

OUTPUT ERROR MESSAGE 

TURN SW.15 OFF IF ON 

GET NEW SECT. PAREM. FROM TTY 

GET A CHAR. 

IS CHAR. A BLANK? 

YES-CHECK fxit flag 

IS CH AR . A COMMA? 

yes-check exit flag 

IS CHAR. A SLASH? 

PROCFSS CONTINUATION 
IS CHAR. A S? 

YES-PROCESS PARAMETER 

CHAP. COUNT-37 

ST. ADDR. OF PRINT BUFFER 

OUTPUT ERROR MESSAGE 

TURN SW . 15 OFF IF ON 

GET NEW SECT. PaREM. FROM TTY 

EXIT PL AG TO B 

EXIT FLAG-1? 

NO 

YES-JUMP TO REAL OPERATION 
-3 TO A 

RESET CHAR, COUNTER 

CLEAR CHAR. HOLD 
GET A CHAR. 

IS CHAP. A BLANK? 

CHECK EXIT FLAG 

CHECK LEGAL I T Y -0-7 

GET NEW SECT. PAPEH. FROM TTY 

7 TO 8 

RETAIN A0-A2 

PARTIAL TO 8 

ROTATE LEFT 3 

IOR & TO A 

RESTORE RESULTS 

SECTOR ADDR. FINISHED? 

NO-GET another character 

CONTINUE PARAMETER 
EXIT FLAG TO 8 
EXIT FLAG-1 
NO-GFT A CHAR. 

CHAR . COUNT-25 
ST. * DDR . OF PRINT BUFFER 
OUTPUT ERROR MESSAGE 
TURN SW.15 OFF IF ON 
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0146 

034 21 

027321 


JMP 

S756 

0147 

034*2 

015341 

S76 3 

JSh 

S90 1 

0148 

03423 

050476 


CPA 

S832 

0149 

03424 

027430 


JMP 

S764 

0150 

03425 

050501 


CPA 

3835 

0151 

03426 

027434 


JMP 

S765 

0152 

03427 

027415 


JMP 

S762 

0153 

03430 

064176 

S76 4 

LDB 

SEXT 

0154 

03431 

004010 


SLR 


0155 

03432 

027415 


JMP 

S762 

ei56 

03433 

027422 


JMP 

S763 

0157 

03434 

060602 

3765 

IDA 

S842 

0158 

03435 

070603 


8TA 

S843 

0159 

03436 

002400 


CLA 


0160 

03437 

070541 


STA 

S841 

0161 

03440 

015341 


jsb 

S 90 1 

0162 

03441 

050476 


r.pA 

S 832 

0163 

03442 

027456 


JMP 

S 7 66 

0164 

03443 

015363 


JSP 

S902 

0165 

03444 

027321 


JMP 

5756 

0166 

03445 

064114 


LDB 

MASK A 

0167 

03446 

010001 


ANE 

1 

0168 

03447 

064541 


LDB 

S841 

0169 

03450 

005723 


8LP 

,R8R 

0170 

03451 

030001 


1 OS 

1 

0171 

03452 

070541 


STA 

S 8 4 1 

0172 

03453 

034603 


I S i 

SS43 

0173 

03454 

027440 


JMP 

S765+4 

0174 

03455 

027462 


JMP 

S767 

0175 

03456 

064176 

S7C6 

LDB 

SEXT 

0176 

03457 

006O11 


SLB 

r RSS 

0177 

03460 

027440 


JMP 

S 7 6 5 + 4 

0178 

03461 

027415 


JMP 

S762 

0179 

03462 

060540 

S76 7 

L DA 

S840 

0180 

034 63 

17051 1 


STA 

WARSR, I 

0181 

03464 

034311 


IS* 

W ARSa 

0182 

03465 

060541 


L D A 

S84 1 

0183 

03466 

170511 


STA 

W ARS« f 1 

0184 

03467 

034511 


I Si 

W APSR 

0185 

03470 

035206 


I 32 

$86 4 

0186 

03471 

027473 


JMP 

**2 

0187 

03472 

027501 


JMP 

S768 

0188 

03473 

064176 


L Db 

SEXT 

0189 

03474 

006011 


slb 

, RSS 

0190 

03475 

027346 


JMP 

S758 

0191 

03476 

060511 


1 DA 

N ARSa 

0192 

03477 

071017 


STA 

LARS* 

0193 

03500 

027510 


JMP 

READ 

0194 

03501 

061071 

S768 

L D A 

CHA3A 

0195 

03502 

065051 


L DP 

I A D3 a 

0196 

03503 

114102 


JSB 

1028-1 

0197 

03504 

102001 


HLT 

01 

0198 

03505 

027321 


JMP 

S756 

0199 

03506 

027570 

S85 5 

JMP 

S769-2 

0200 

035O7 

125260 

S68 2 

JMP 

READ! , I 

0201 

03510 

000000 

READ 

NOP 


0202 

03511 

864123 


LDB 

DMADW 


GET NEW SECTOR PARAMETER FROM TT 
GET A CHAR. 

IS CHAP. A BLANK? 

YES-CHECK EXIT FLAG 
IS CHAR. A -? 

YES 

NO-PRINTOUT ERROR MESSAGE 
EXIT FLAG TO B 
EXIT FLAG-0? 

NO-ERROR PRINTOUT 
GET A CHAR. 

-3 TO A 

RESET CHAR. COUNTER 

CLEAR CHAR. HOLD 
GET A CHAR, 

IS CHAR. A BLANK? 

CHECK EXIT FLAG 

CHECK LEGALITY-0- 7 

GET NEW SECT. PAREM. FROM TTY 

7 TO B 

RETAIN A0-A2 

PARTIAL TO B 

ROTATE LEFT 3 

I OR R TO A 

RESTORE RESULTS 

SECTOR SEQ. CHAR. FINISHED? 

NO-GET ANOTHER CHARACTER 

continue parameter 

EXIT FLAG TO B 
EXIT FLAG-1? 

NO-GET ANOTHER Cma«. 

OUTPUT ERROR MESSAGE 

STARTING SECTOR ADDRESS TO A 

PUT IN READ SECTOR ARRAY 

INCR. ARRAY ADDRESS 

NO. OF CONSECUTIVE SECTORS 

PUT IN READ SECTOR ARRAY 

INCR. ARRAY ADDRESS 

85 ENTRIES IN SECTOR READ BUFF.? 

NO 

YES 

EXIT FLAG TO 8 
EXIT FLAG-i? 

GET ANOTHER SECTOR READ PAREM. 

LAST SUFFER A DDR • + 1 

PERFORM READ OPERATION 

NO. OF CHAR. -29 

ST. ADBR. OF PRINT BUFFER 

OUTPUT ERROR MESSAGE 

TURN SW.15 OFF IF ON 

GET NEW SECTOR PAREM, FROM TTY 

BYPASS READ PARAMETERS 

RETURN JUMP 

IND. RETURN 

DMA OCTAL ADDR. TO B 
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r 


0 2 3 3 

035 12 

060107 

L DA 

MASK t 

0 20 4 

0 3513 

0137 1 3 

A N i: 

R DO 

0205 

0 3514 

03000 1 

1 OR 

1 

0206 

03515 

073713 

ST A 

R D? 

0207 

03516 

000 1 07 

1 DA 

M A S K t 

0208 

03517 

013722 

* N C 

R 0 7 

0209 

03620 

030001 

I OR 

l 

0210 

05521 

073722 

ST A 

R D 7 

02 1 1 

03522 

054627 

C PR 

MASK* 

0212 

03523 

027526 

J MR 

* + 3 

0213 

03524 

064631 

l OP 

M A S 7 a 

0214 

03526 

027527 

JMP 

*♦2 

0215 

03526 

064630 

L DP 

M A S 6 a 

0216 

05627 

060 1 07 

1 DA 

MASK 1 

0217 

03530 

013714 

A NE 

RD3 

0218 

03631 

O300O t 

1 Oh 

1 

0219 

0363? 

073714 

STA 

KD3 

0 2 20 

03533 

060107 

L D A 

M A S K 1 

0221 

03634 

013716 

A N E 

P D4 

0222 

03535 

O3OO01 

I OR 

1 

0223 

03536 

073716 

STA 

R b 4 

0224 

03537 

073721 

STA 

R D 6 

0225 

035 40 

060107 

L D A 

M A S K 1 

0226 

0354 1 

B1 3717 

ANT 

P i)5 

0227 

03542 

O3OR0 1 

1 OR 

1 

0226 

03543 

073717 

STA 

RU5 

0229 

03544 

064122 

l DP 

DADRi 

0230 

03645 

060 1 07 

t DA 

MASK i 

0231 

03546 

013723 

AN! 

ROB 

0232 

03547 

0 3 0 0 0 1 

1 OR 

1 

0233 

03550 

073723 

STA 

RD8 

0234 

03551 

006004 

? NR 


0235 

03552 

060107 

L DA 

MASK i 

0236 

03553 

013711 

ANL 

P D 1 

0237 

03554 

O300O 1 

1 OR 

1 

0238 

03555 

07371 1 

STA 

PD1 

0239 

03556 

06M 1 07 

IDA 

MASK t 

0240 

03657 

013727 

ANL 

P’D9 

024 1 

03560 

030001 

1 OR 

1 

0242 

03661 

073727 

STA 

RD9 

0243 

03562 

073752 

STA 

RD1 1 

0244 

03663 

073676 

STA 

PDl A 

0245 

03564 

002400 

CLA 


0246 

03566 

07 1^72 

STA 

R C 0 M R 

0247 

03566 

070641 

STA 

S C 0 M P 

0248 

03567 

073665 

STA 

BUFLu 

0249 

03570 

060506 

L P A 

ART8F 

0250 

03671 

070507 

STA 

W A R T « 

0251 

03572 

060510 S769 

IDA 

A R S B P 

0252 

03573 

07351 1 

STA 

KARSH 

0253 

03574 

164507 

1 DR 

* ART* 

0254 

03575 

034507 

IS? 

K ART« 

0255 

03576 

060507 

1 DA 

R ART* 

0256 

03577 

051016 

CPA 

L A R T w 

0257 

03*00 

035072 

IS? 

R C 0 M P 

02d8 

03001 

075076 

STH 

C TRCK 

0259 

036O? 

060633 

ID* 

S 8 4 4 


1 7 7 7 CM TO A 
RETAIN A €>- A 1 f> 

I OR 0 M A ADDRESS 
RESTORE RD2 
177700 TO A 
RETAIN A6-A15 
I OR DMA ADDRFSS 
RESTORE RD7 
DMA CHAN. =6 
YES 

NO- A D DR . «3 

A P DP . =0 
1 77700 TO A 
RETAIN A6-A 1 5 
I 0 R MAR ADDRESS 
RESTORE RD3 
1 7 7 7 CM TO A 
RETAIN A 6 - A 1 5 
I OR" MAC ADDREDD 
RESTORE RD4 
RESTORE R D6 
1770O TO A 
RETAIN A 6- A 1 5 
I OR WCR ADDRESS 
RESTORE RD5 
H.P. DISK ADDR. TO R 
1777M TO A 
RETAIN A6-A15 
TOR DISK ADDRESS 
RESTORE RD8 
L.P.DISK ADDR. TO B 
1777CM TO A 
RETAIN A6-A1 5 
3 OR DISK ADDRESS 
RESTORE RD1 
1777M TO A 
RETAIN A 6 - A l 5 
I OR DISK ADDRESS 
RESTORE R DP 
RESTORE R D 1 1 
RESTORE RD 1 A 

CLEAR FLAG 
CLEAR FLAG 
CLEAR FLAG 

RESET READ TRACK SUFFER ADDR. 

RESET READ SECTOR BUFFER ADDR. 
I PICK PRACK ADDR. 

I NCR . ARRAY ADDRESS 
CURRENT ARRAY ADDR. TO A 
LAST BUFFER ADDR. +3? 

YES-SET READ COMPLETE FLAG 

TRACK MASK-140377 
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f 


0260 

03603 

011073 


*NE 

RCOMW 

0261 

03604 

005727 


«LF 

rBLF 

0262 

03605 

030001 


I OR 

1 

6263 

03606 

071073 


ST A 

PCOMW 

0264 

036U7 

060210 

S769A 

t. DA 

S 8 1 4 

0265 

03610 

036400 


r.LS 


0266 

03611 

174000 


STB 

0, I 

0267 

03612 

002004 


INA 


0260 

03613 

050106 


CPA 

1 06B 

0269 

03614 

027616 


JMP 

**2 

0270 

03615 

027611 


.IMP 

S769 a + 2 

0271 

03616 

16451 1 


L D6 

WARS*, I 

0272 

03617 

075077 


STB 

CSECT 

0273 

03620 

034511 


IS/ 

WARS* 

0274 

03621 

060640 


L D A 

S845 

0275 

03622 

011373 


ANt 

RCOMW 

0276 

03623 

03000 1 


low 

1 

0277 

03624 

071O73 


STA 

RCOMw 

0278 

03625 

164511 


LDH 

WAPS*, I 

0279 

0 3626 

03451 1 


IS/ 

WARS* 

0280 

03627 

063511 


I DA 

WAPS* 

0281 

03630 

051017 


CPA 

LARS* 

0282 

03631 

03464 l 


IS? 

SCOMP 

0283 

03632 

006W03 


S2B 

, H SS 

0284 

03633 

02/415 


JMP 

S762 

0285 

03634 

074000 


STB 

0 

0288 

03635 

001727 


ALF 

, ALF 

0287 

03636 

001323 


PAW 

,RAR 

0 2 88 

03637 

040105 


ADA 

1 05B 

0289 

03640 

003004 


CMA 

, INA 

0290 

03641 

040106 


ADA 

1060 

0291 

03642 

002020 


S S A 


0292 

03643 

027662 

S 7 7 0 

JMP 

S 77 1 

0293 

03644 

074000 


STB 

0 

0294 

03645 

001727 


ALF 

, ALF 

0295 

03646 

001323 


HAW 

, R A R 

0296 

03647 

003304 


f.MA 

, INA 

0297 

03650 

070637 


STA 

WDCNT 

029 8 

03651 

002404 


CLA 

, INA 

0299 

03652 

001 300 


HAH 


0300 

03653 

030105 


TOW 

1058 

0301 

03654 

071104 


STA 

rdir 

0302 

03655 

007304 


C MB 

, INB 

0303 

03656 

075102 


ST0 

SECTn 

0304 

03657 

060135 


L D A 

1058 

0305 

03660 

070643 


STA 

S848 

0306 

03661 

027667 


JMP 

S772 

0307 

03662 

360662 

S771 

L D A 

CHA27 

0308 

03663 

064644 


L D« 

1 AD27 

0309 

03664 

114102 


JSB 

102B. I 

0310 

03666 

102001 


HLT 

01 

0311 

03666 

125174 


JMP 

1743-1 

0312 

03667 

06O375 

S772 

L DA 

S829 

0313 

03670 

010635 


AND 

WDMA* 

0314 

03671 

030122 


I OH 

DADR* 

0315 

03672 

073635 


STA 

WOMAw 

0316 

03673 

061074 


1 DA 

S852 


RETAIN A 1 5-A 1 4 , A P-A7 
A0-A5 TO A8-A13 
TRACK ADDR. TO a 
RESTORE RCOMR 
ST. ADDR. -BUFFER 


LAST ADDR . OF BUFFER AREA 

FINISHED 

NOT FINISHED 

PICKUP STARTING SECTOR 

INCR. ARRAY ADDRESS 

SECTOR MASK-177600 

RETAIN A7-A1R 

SECTOR ADDR. TO A 

RESTORE RCOMR-TR./SECT, COMPLETE 

PICKUP * OF CONSEC. SECTORS 

INCR. ARRAY ADDRESS 

CURRENT ARRAY ADDR. TO A 

LAST SUFFER ADDR.+l 

YES-3ET SECTOR STRING COMP. FLAG 

SECTOR VALUE >0? 

NO-ERROR PRINTOUT 
S TO A 

MULTIPLY RY 64 

ADD 1ST AVAIL. LOCN. VALUE 

2 * S COMPL. 

SUBTp. LOWER FROM UPPER 

ERROR-BUFF. LENGTH EXCEEDS MEM. 
GOOD MEM. FIT 

MULTIPLY QY 64 

2 ' S COMPL. OF TOTAL WORD COUNT 
WORD COUNT READY 

B I T t 3* 1 

1 OR START ADDR. OF AVAIL. MEM. 
OUTPUT AND ST. ADDR. READY 

2 * S COMPL. * OF SECTORS 
RETAIN # OF SECTORS 

ST. OF AVAILABLE MEM. 

CONTINUE 

CHAR. COUNT »32 

ST. ADDR. OF PRINT BUFFER 

OUTPUT ERROR MESSAGE 

TURN SW. 15 OFF IF ON 

GET NEW READ PARAMETERS 

177700 TO A 

RETAIN A6-A15 

I OR H.P. DISK ADDR, 

RESTORE WDMAW 
RETURN JUMP 
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0317 

03674 

070OO6 


ST A 

6 

I NT.. LOCN. 

0318 

0 36 75 

070007 


STA 

7 

INT. LOCN. 

0319 

03676 

102600 

RD1 A 

l I A 

0 

INPUT STATUS 

0320 

036 7 7 

001727 


ALP 

, ALF 

BIT 7 TO BIT 15 

0321 

03700 

O02020 


SSA 


BIT 15=0? 

0322 

037 01 

027707 


IMP 

S 7 7 3 

DISC NOT READY 

0323 

03702 

060721 


1 D* 

CHA2Q 

NO. OF CHAR. »!4 

0324 

03743 

064711 


l OR 

I A 0 2 Q 

ST. AODR. OF PRINT BUFFER 

0325 

03704 

114102 


.IbH 

1.02B - I 

OUTPUT MESSAGE 

0326 

037715 

102O01 


0 L l 

0 t 

M A K E DISC READY 

0327 

03706 

027676 


J MP 

RD 1 A 

RETURN 

0328 

03747 

103100 

S 7 ? 3 

CLP 

0 

TURN-OFF INTERRUPT SYSTEM 

0329 

037 10 

061073 


1 IT A 

R C 0 M h 

TRACK/SECTOR ADDRESS 

0330 

0371 1 

1O2600 

HOI 

OTA 


l.p. nisx address 

0 331 

0 3712 

060635 


1 DA 

*i D M A ~ 

H.P. DISK A DDR . AND CLC 

0332 

03713 

1026O0 

R D2 

OTA 

0 

DMA CHAN. 4 6/7 

0333 

037 14 

106700 

H 02 

CLC 

0 

MAR ADDR. *#2/3 

0334 

03715 

061 U4 


1 lu 

PDIR 

STARTING ADDRESS-BIT 15=1 

0335 

03716 

1O260O 

R D 4 

OTi 

2 

MAR ADDR. *2/3 

0336 

037 17 

162700 

K fl 5 

STD 

0 

WCK ADljR. #?/3 

0337 

03720 

060637 


L DA 

HOC NT 

2 * S CGMPL.-HORD COUNT 

0338 

03721 

102600 

Roe 

OTA 

0 

WCR ADDR. #2/3 

0339 

0372? 

103700 

RD7 

STC 

0,C 

DMA CHAN. #6/7 

0340 

03723 

102700 

Roe 

stc 

0 

H.P. DISK ADDRESS 

034 1 

03724 

102 100 


S TP 

£? 

TURN-ON INTERRUPT 

0342 

03725 

0W2400 


OLA 



0343 

03726 

670665 


ST A 

B'UFLfc 

CLEAR FLAG 

034 4 

03727 

102300 

RD9 

II A 

? 

INPUT STATUS 

0345 

037 30 

06201 1 


SLA 

t RSS 

BUSY 8IT-1? 

0346 

03731 

034665 


1 S 7 

8 U F l. ft 

ERROR-SET FLAG 

0347 

03732 

061210 


IDA 

S 8 6 9 

77777 TO A 

0348 

03733 

602006 


I fJ A 

,S7A 


0349 

03734 

027733 


JMP 

« — t 

TIME-OUT LOOP 

0350 

03735 

1 0250 1 


1 I A 

01 

SW. REG. TO A 

0351 

03736 

001323 


WAP 

,RA R 


0352 

03737 

001300 


HAH 


BIT 3 TO BIT 0 

0353 

03740 

000010 


SLA 


NO SUPPRESS? 

0354 

0374] 

027744 


JMP 

# 4 T T 9 ♦ 1 

BYPASS PRINTOUT 

0355 

0374? 

103100 


CLP 

V 

TURN-OFF INTERRUPT 

0356 

03743 

115212 

w A I T 2 

JSU 

$37 l . I 

MISSING INTERRUPT 

0357 

037^4 

103100 


r.LF 

P 

TURN-OFF INTERRUPT 

0358 

03745 

102501 


1 I A 

0 1 

SR. REG. TO A 

0359 

03 7 46 

001323 


PAH 

,RAR 


0360 

03747 

001300 


HAH 


BIT 3 TO BIT 0 

0361 

03750 

000010 


SLA 


NO SUPPRESS? 

0362 

03751 

1 25256 


JMP 

1775. I 

SUPPRESS PRINT 

0363 

0375? 

122506 

PCI 1 

L I A 

2 

INPUT STATUS 

0364 

03753 

000010 


SLA 


BUSY 6 I T *0 ? 

0365 

03754 

034665 


IS? 

BUFLm 

NO-ERROR 

0366 

03755 

001727 


ALF 

, ALF 

BIT 8 TO BIT 6 

0367 

03736 

001700 


ALF 


BIT 4 TO BIT 0 

0368 

03/57 

071 131 


STA 

S857 

SAVE 

0369 

03760 

00201 1 


SLA 

f RSS 

OECOnE BIT-i? 

0370 

03761 

027765 


.IMP 

S 7 73 i 

NO 

0371 

0376? 

061115 


1. DA 

CHA36 

CHAP. COUNT-12 

0372 

03763 

065106 


ldh 

I AD36 

ST. ADDR. 

0 37 3 

03764 

114102 


.1 SB 

1 O 2 B . I 

OUTPUT MESSAGE 
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0374 

03765 

061131 

S 7 7 3 A 

IDA 

S857 

STATUS TO A 

0.37 5 

03766 

001222 


«AL 

,RAl 


0376 

03767 

002021 


S S A 

,RSS 

PARITY BIT-1? 

0377 

03770 

027774 


.1 HP 

S773« 

NO 

0378 

03771 

061130 


l DA 

CHA36 

CHAR. COUNT » 1 7 

037V 

03772 

065116 


1 DP 

IAD3* 

ST. A DDR. 

0380 

03773 

114102 


J SB 

1328.1 

OUTPUT MESSAGE 

0381 

03774 

061131 

S7 7 38 

i DA 

S857 

STATUS TO A 

038 2 

0377b 

002021 


S S A 

, RSS 

BIT 3-1? 

0383 

03776 

126267 


JMP 

1 773f - , I 

NO 

0384 

037/7 

065076 


i. DB 

CTRCk 

CURR. TRACK VALUE TO B 

0385 

04000 

114113 


JS8 

CONV. J 

CONVERT OCTAL TO ASCII 

0386 

04001 

060206 


L D A 

S812 

377 TO A 

0387 

04002 

010111 


ANT 

CARRv+l 

RETAIN M.S. DIGIT 

0388 

04003 

031253 


T£)H 

S880 

BLANK TO A8-A15 

0389 

04004 

071242 


STA 

MES4/1 + 8 

SETUP PRINT MESSAGE 

0 390 

04006 

0601 12 


L DA 

CARRv+2 

ASCII TRACK VALUE 

0391 

04006 

071243 


STA 

MES4/1 + 9 

SETUP PRINT MESSAGE 

0392 

04007 

0612*4 


1. DA 

CHA4* 

CHAR. COUNT-20 

0393 

04010 

065231 


L D« 

I AD4* 

ST. ADDR. OF PRINT BUFFER 

0394 

040 U 

114102 


Jse 

1 32B . I 

OUTPUT ERROR MESSAGE 

0395 

04012 

060665 

S77 3C 

t DA 

BUFLG 

BUSY ERROR FLAG TO A 

0396 

04013 

002303 


8 2 A 

r RSS 

FLAG-1? 

0397 

0 4 014 

02&02M 


JMP 

S 7 75 


0398 

04015 

060710 

S7 7 4 

LDA 

CHA2* 

CHAR. COUNTING-49 

0399 

04016 

064666 


•- DP 

1 AD2A 

ST. APTJp. OF PRINT BUFFER 

0400 

04017 

114102 


jsb 

1028.1 

OUTPUT ERROR MESSAGE 

0401 

04020 

002460 

S775 

CL A 



0402 

04021 

070665 


STA 

BUFLra 

CLEAR flag 

0403 

04022 

066105 


LDA 

1 058 

START OF INPUT SUFFER 

0404 

04023 

071100 


STa 

CM EM 

ST, ADDR. OF INPUT 8UFFER 

0405 

.040 24 

000000 

S6£ 3 

NOP 


JUMP RETURN 

0406 

04/5 25 

002460 

S 7 7 6 

CIA 



0407 

04 026 

071101 


STA 

SEWD 

CLEAR WORD # 

040 8 

04027 

063375 


l DA 

$829 


0409 

04030 

070374 


STA 

S828 

RESET -64 

0410 

0 4031 

060267 


LDA 

S823 


0411 

04032 

076266 


STA 

S822 

RESET SECT. BUFFER ADDRESS 

0412 

04333 

160266 

S777 

1 DA 

S822. I 

PICKUP GOOD WORD 

0413 

04034 

151100 


CPA 

CMEM . I 

COMPARE TO TEST WORD 

0414 

04035 

002001 


RSS 


GOOD 

0415 

04336 

016120 


jsb 

PRINT 

ERROR 

0416 

04037 

035100 

5778 

1S2 

CMEM 

INCR. INPUT BUFFER ADDR, 

0417 

04340 

035101 


IS/ 

SE«D 

INCR. SECTOR WORD # 

04 18 

04041 

034266 


I S 2 

S822 

INCR. GOOD WORD ARRAY ADDR. 

0419 

04042 

034374 


1S2 

S 8 2 8 

64 WORDS FINISHED? 

0420 

04343 

026033 


JMP 

S 777 

DO ANOTHER WORD 

0421 

0 4 v 14 4 

035077 


IS2 

CSECT 

INCR. CURRENT SECTOR COUNT 

0422 

04345 

035102 


1S2 

SECTC 

ARE ALL SECTORS COMPLETED? 

0423 

04046 

125203 


JMP 

1776. I 

NO 

0424 

04047 

060641 


1 DA 

SCOMP 

YES-SECTOR STRING COMPLETE FLAG^ 

0425 

04350 

002003 


8 2 A 

r RSS 

FLAO>0? 

0426 

04351 

126177 


JMP 

S858. I 

NO-CONTJNUE SECTOR PROCESSING 

0427 

04052 

002400 


CLA 


YES 

0428 

04353 

070641 


STA 

SCOMP 

CLEAR FLAG 

0 4 29 

04054 

061072 


LDA 

RCOMP 

TRACK READ COMPLETE FLAG 

0430 

04055 

002003 


SZA 

,RSS 

FLAO>0? 
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;* A 3 ! 

0 4 o 5 6 

126200 


J OP 

S85Q . I 

NO— RE T NEW TRACK VALUE 

i? a 3 2 

n 4 *i 5 7 

002400 


FLA 


YES 

{3433 

0 4 7 6 £ 

071072 


ST a 

RCOMP 

CLEAR FLAG 

0434 

0 4 »J 6 1 

10250 1 


1 I 4 

0 1 

SW . REG . TO A 

t*435 

043 62 

001323 


RAP 

,RAR 

PIT 2 TO H 1 TO 

043b 

0 4 0 6 3 

000010 


SLA 


BI T2»0? 

0 4 3 7 

0 4 0 64 

125201 


.IMF 

S86"! . 1 

LOOP ON REAP PROCESSOR 

043ft 

0 4 0 65 

00202 1 


SSA 

,PSS 

8 IT 1 * 1 ? 

0439 

0 4 0 6 6 

026072 


,i HP 

S779 

check sw.o 

£440 

04067 

161176 


L 0* 

1855.1 

YES 

04 4 1 

04070 

171103 


ST A 

S854 . I 

BYPASS R*AD PARAMETERS 

0442 

0 4 0 7 1 

126105 


.IMP 

S 8 56 . I 

RETURN TO WRITE processor 

0443 

0407 2 

001200 

S779 

K At. 


BIT14 TO BIT 15 

0 4 4 4 

0 4 0 73 

0M2O2 1 


SSA 

, RSS 

B I TOmt ? 

0445 

B4074 

0261 15 


JMP 

S780 

N0-FX1T T 4 

k ; 4 4 6 

04/75 

161176 


t PA 

I 855- I 

YES 

0447 

04 376 

171103 


STA 

S 85 4 . I 

BYPASS READ PARAMETERS 

0448 

0 4/77 

06/23 1 


1 DA 

C 8t'F R 

COM Pi . PATTERN BUFFER 

0'4 4 >3 

0 4 10 0 

0020 1 1 


SLA 

,RSS 


0450 

0 4 1 ■) 1 

0261 1 4 


JMP 

S7H0- 1 

NO-WRITE SAME PATTERN BUFFER 

0451 

04 1/2 

060375 


1 DA 

S829 

YES 

0452 

04103 

070374 


STA 

S828 

-64 RESET 

0453 

04 1 04 

060267 


IDA 

SS23 

SECTOR BUFFER A 0 D R . 

0 4 54 

04 1 05 

076266 


STA 

S822 

RESET 

0455 

0 4 1/6 

160266 

S.779A 

IDA 

S822. ! 

PICKUP WORD 

0456 

04 1/7 

003000 


C M A 


COMP!.. WORO 

0 4 57 

0 4 110 

17/266 


STA 

S822 . I 

RESTORE WORD 

0458 

0 4 111 

034266 


IS/ 

S827 

INCR. A DDR , 

£*459 

04112 

034374 


152 

S828 

64 WORDS FINISHED? 

0460 

04U3 

0 2 6 1 U 6 


JMP 

S 7 79 a 

NO-LOOP 

0461 

04 114 

125135 


.1 NP 

S856 . I 

RETURN TO WRITE PROCESSOR 

0 4 62 

04115 

002400 

5780 

r.LA 



04 63 

04 116 

171103 


STA 

S854 • I 

NOP TO S743 

04 6 4 

04117 

125202 


.IMP 

S 86 1 . I 

JUMP TO MAIN EXEC. 

0465 

0 4120 

000000 

PRINT 

NOP 



0466 

04 121 

0357O0 


1 S 2 

S 999 

INCR. ERROR COUNT 

0467 

04 12 2 

60200 l 


RSS 



0468 

04123 

035701 


l Si 

S999 + 1 

INCR. FRROR COUNT OVFRFLOw 

0469 

04 124 

000000 


nOF 



0470 

04125 

102601 


L I A 

01 

SW. REG . TO A 

0471 

W4 126 

001323 


war 

r R AR 


0472 

04 127 

001300 


ra« 


BIT 3 TO BITP 

0473 

04130 

000010 


SLA 


BIT3-0? 

0474 

04131 

126 1 20 


JMP 

PRINT , 1 

BYPASS PRINT AND SUBROUTINES 

0475 

04132 

065076 


L D« 

CTRCk 

CURB. TRACK VALUE TO 3 

0476 

04133 

114113 


.ISP 

CONV . 1 

CONVERT OCTAL TO ASCI! 

0477 

04134 

06O2P6 


1 DA 

S812 

377 TO A 

0478 

04 135 

010111 


ANt 

CARRv+1 

RETAIN HIGH ORDER DIP-GIT 

0476 

04136 

001727 


ALP 

r ALF 


0480 

04 137 

07000 1 


STA 

1 


0481 

04 140 

060475 


I DA 

S831 

177400 TO A 

0482 

04141 

010112 


ANT 

CARRv+2 

RETAIN MIDDLE DIGIT 

04 A3 

04142 

001727 


ALP 

, ALF 

A8-A15 TO A0-A7 

P484 

04143 

O3O001 


1 OR 

1 


0485 

04144 

071136 


STA 

0ES37+3 

SETUP PRINT MESSAGE 

0486 

04145 

060206 


L DA 

S812 

377 TO A 

0487 

04146 

010112 


ANI 

CARRY+? 

RETAIN LOW DIGIT 
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0488 

04147 

001727 


A|_F 

, ALF 


0489 

04 160 

030476 


I OR 

S832 

BLANK TO A0-A7 

04 90 

04 151 

071137 


STA 

MES3/+4 

SETUP PRINT MESSAGE 

0491 

04152 

065077 


1 DB 

CSFCT 

CUR R. SECTOR VALUE TO 3 

0492 

04153 

114113 


JSB 

CONV. I 

convert octal to ascii 

0493 

04154 

064476 


1- DR 

$8 32 

ASCII 8LANK 

0494 

04155 

005727 


«LF 

,BLF 

A0IA7 TO A 8- A 15 

04 95 

04156 

060206 


ID* 

S3 12 

377 TO A 

0496 

04157 

0101 It 


ANt 

CARR y*1 

RETAIN LOW DIGIT 

0497 

04 1p»0 

030001 


I OR 

1 

BLANK TO A 

0 4 98 

04161 

071143 


STA 

HES37+8 

SETUP PRINT MESSAGE 

0499 

04162 

£601 1 2 


L D A 

C A R R v> 2 

SECOND HALF 

0500 

04163 

071144 


STA 

MES37+9 

SETUP PRINT MESSAGE 

W501 

04164 

065101 


1 DR 

SEWO 

CURR, WORD # TO 8 

0502 

04165 

114113 


J SR 

CONV. I 

CONVERT OCTAL TO ASCII 

0503 

04 t 56 

060112 


t DA 

CARRY+2 

LOW ORDER DIGITS 

0 50 4 

04167 

071152 


STA 

HES37+15 

SETUP PRINT MESSAGE 

0505 

04170 

164266 


L DR 

S3 22- I 

OUTPUT WORD TO B 

0506 

04171 

114113 


.ise 

CONV . I 

CONVERT OCTAL TO ASCII 

0507 

04172 

060110 


1 DA 

CARR* 

1ST WORD 

0508 

04173 

071161 


STA 

HES3A+4 

SETUP PRINT MESSAGE 

0509 

041 74 

0601 1 1 


L D A 

CARRY+3 

2ND WORD 

0510 

04175 

071162 


STA 

MES3*+5 

SETUP PRINT MESSAGE 

051 1 

04 1/6 

060112 


l DA 

CARRY+2 

3RD WORD 

0512 

04177 

071163 


STA 

MES3*+6 

SETUP PRINT MESSAGE 

0513 

04200 

165100 


l DR 

CHEM. I 

INPUT WORD TO B 

0514 

04201 

114113 


JS* 

CONV . I 

CONVERT OCTAL TO ASCII 

0515 

04202 

060 110 


1 DA 

CARRY 

1ST WORD 

0516 

04203 

071170 


STA 

RE$3«+1 1 

SETUP PRINT MESSAGE 

0517 

04204 

06011 1 


L DA 

CARRY+i 

2ND WORD 

0518 

04205 

071171 


STA 

H E S 3 m ♦ 1 2 

SETUP PRINT MESSAGE 

0519 

042C6 

0601 12 


L D A 

CARRY+2 

3RD WORD 

0520 

04207 

071 172 


STA 

MES3«+13 

SETUP PRINT MESSAGE 

0521 

£4210 

061153 


L DA 

CHA37 

NO. OF CHAR. -32 

0522 

04211 

063132 


L DB 

I AD37 

ST * ADDR. OF PRINT BUFFER 

0523 

04212 

114102 


J$P 

102B- I 

PRINT MESSAGE 

0524 

04213 

061173 


1 DA 

CHA3H 

NO. OF CHAR. ®28 

0525 

04214 

065154 


l D« 

I AD3« 

ST. ADDR. OF PRINT BUFFER 

0526 

04215 

114102 


J SB 

1028. I 

PRINT MESSAGE 

0527 

04216 

126120 


•IMF 

PRINT, I 

EXIT 

0528* 

**** TRACK ADDRESS VERIFICATION SUBROUTINE ***** 

0529 

04217 

000000 

TRVER 

K 0 P 



0530 

04220 

002400 


CLA 



£531 

04221 

070171 


STA 

TOP T? 

clear info 

0532 

04222 

062465 


L D A 

CHA 4h 

NO. OF CHAR, *13 

0533 

£4223 

066464 


L DB 

1 AD4« 

ST. ADDR. OF PRINT 8UFFER 

0534 

04224 

114102 


JSt 

1P28. I 

OUTPUT MESSAGE 

0535 

04225 

060200 


L DA 

S805 

CHAR. COUNT-72 

0536 

04226 

070177 


STA 

S804 

SETUP INPUT CHAR. LENGTH 

0537 

04227 

015300 


JSB 

S900 

CALL INPUT SUBROUTINE 

0538 

04230 

060602 


LD A 

S842 

-3 TO A 

0539 

04231 

070603 


STA 

S 8 4 3 

RESET CHAR, COUNTER 

054 0 

0423? 

002400 


CLA 



0541 

04233 

070540 


STA 

S840 

CLEAR CHAR. HOLD 

0542 

04234 

015341 

$548 

JSB 

S901 

GET A CHAR. 

0'543 

P4235 

05U476 


f.pA 

S832 

IS CHAR. A BLANK? 

0544 

04236 

026262 


JHP 

S549 

CHECK EXIT FLAG 
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P545 

04237 

015363 


JSP 

S902 

CHECK LEGAL ITV-0-7 

0546 

04240 

026220 


JMP 

trve**i 

restart 

0547 

0424 1 

064 1 1 4 


1 db 

MASK 'a 

7 TO R 

0548 

0 4 2 4 2 

010001 


A N C 

1 

RETAIN A0-A2 

P549 

0 4 243 

064540 


l DP 

S840 

PARTIAL TO B 

0550 

04244 

0O5723 


8LE 

, RBR 

ROTATE LEFT 3 

P 55 1 

04245 

030001 


I OP 

1 

B TO A 

0552 

04246 

070540 


STA 

S 8 40 

RESTORE RESULTS 

0553 

04247 

034603 


I Si 

S 8 4 3 

finished? 

0 554 

U 4 2 5 0 

026234 


.IMP 

S548 

NO-GFT ANOTHER CHAR. 

0555 

04251 

001727 


ALE 

, ALF 

A 0- A 7 TO A 8 — A 1 5 

0556 

04252 

070171 


STA 

TOPT* 

SAVE track n IN BINARY 

0557 

04253 

0O1727 


ALF 

,alf 

A8-A15 TO A0-A7 

0558 

04 2 54 

092003 


SZA 

,RSS 

VALUE > 0? 

0559 

04265 

026220 


.IMP 

trvew + i 

NO-RFST ART 

0560 

0 4256 

041252 


ADA 

S510 

ADD -101 

0561 

04257 

00202O 


SSA 


POS.? 

0562 

04260 

026266 


•IMP 

S5494-4 

NO-CONT I NUE 

0563 

04261 

026220 


JMF 

TkVEW+1 

YES-RESTART 

0564 

0426? 

M 6 4 1 7 6 

8549 

I. PP 

SEXT 

EXIT FLAG TO B 

0565 

04263 

O08O1 1 


SL 8 

t S S S 

EXIT FL AG* 1 ? 

fc/566 

04264 

026234 


JMP 

S 5 4 8 

NO-CONT I NtJF 

0567 

0 42 65 

026220 


JMP 

TRVE*+ t 

YES-RESTART 

0 56 8 

042b6 

002400 


f- L A 



0569 

04267 

071247 


STA 

S5H0 

CLEAR ACTIVE TRACK COUNTER 

0570 

04270 

070632 


STA 

WCOMP 

CLEAR WR . TR . FLAG 

0571 

0427 1 

070641 


STA 

S C 0 M R 

CLEAR WR. SECTOR FLAG 

0672 

04272 

071072 


STA 

RCOnP 

CLEAR RD. TR. FLAG 

0573 

04273 

070231 


STA 

C3UFP 

clear comp. pat?, flag 

05 7 4 

04274 

17O504 


STA 

A4SBF , I 

SET *RITE SECTOR ADDRESS 

B575 

04275 

170510 


STA 

ARS8F , I 

SET READ SECTOR ADDRESS 

0676 

04276 

002004 


I N A 


SET COnSEC. * OR SECTORS 

0577 

04277 

172455 


STA 

S 50 1 • I 

SET CONSEC. * C r WRITE SECTORS 

0678 

04300 

172456 


STA 

S502 • I 

SET CONSEC. * OF READ SECTORS 

0579 

04301 

062455 


l DA 

5 5 0 1 


0580 

04302 

0020O4 


J NA 


LAST ^DDR.t-l OF SECTOR BUFFER 

0581 

04303 

0706O5 


STA 

L A WS« 

SET TERMINAL ADDK. 

0582 

04304 

062456 


IDA 

S 50 2 


0583 

04305 

0O2OO4 


) N A 


LAST ADDR.+l OF SECTOR BUFFER 

0584 

04 346 

071017 


STA 

L ARSM 

SET TERMINAL ADDR. 

0585 

04307 

060502 


LB A 

AWTBP 


0586 

0 4 31 0 

002OO4 


1 N A 


LAST AQDR.+l OF TRACK BUFFER 

0587 

0 4 31 1 

070604 


STA 

L AWTh 

SET TERMINAL ADDR. 

0588 

04312 

060506 


L DA 

ARTBP 


0589 

04313 

002004 


I NA 


LAST ADDR.+l OF TRACK BUFFER 

0590 

0 4 314 

071016 


STA 

LARTm 

SET TERMINAL ADDR. 

0591 

04315 

162460 


1. DA 

S5«4 . 1 

JMP WRITE, I TO A 

0592 

04316 

172461 


STA 

SS05 . I 

setup return jump 

0593 

04317 

061247 

S55 0 

L D A 

S 500 

PICKUP TR. /SECTOR ADDRESS 

0594 

04320 

001727 


ALP 

, ALF 

A8-A15 TO A0-A7 

0595 

04321 

1705M2 


STA 

AWT BA r I 

PUT TRACK entry in buffer 

0696 

04322 

060375 


L DA 

S 8 2 9 

-64 TO A 

0597 

04323 

070374 


STA 

S 8 2 8 

RESET WORKING COUNT 

0598 

04324 

060267 


t DA 

S823 


0599 

04325 

073266 


STA 

S822 

RESET SECTOR BUFFER ADDRESS 

0 6 0 0 

04326 

061247 


L DA 

S 500 

PICKUP TR./SECT. ADDR. 

0601 

04327 

170266 

S5i 1 

STA 

S 8 22 • I 

STORE IN BUFFER 
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0602 

04330 

034266 


IS? 

S822 

INCW. PUFFER ADDRESS 

0603 

04 331 

034374 


IS? 

S828 

I NCR . WORD COUNT 

0604 

04332 

026327 


JMP 

S55 1 

BUFFER NOT FINISHED 

0605 

04333 

l 16457 


jse 

S 50 3 . 1 

WRITE ONE TRACK 

0606 

04334 

061247 


ll)A 

$500 

PICKUP CURR. TR, VALUE 

0607 

04335 

042462 


ADA 

5506 

ADD 1 TO TR. ADDR. 

0608 

. 04336 

071247 


STA 

S500 

STORF TR./SECT. A DDR . ♦ 1 

0609 

04337 

050171 


CPA 

TOPT> 

LAST ADDR . ♦ 1 ? 

0610 

04340 

026342 


J HP 

*♦2 

YES 

061 1 

04341 

026317 


J HP 

S550 

NO-DO ANOTHER TRACK 

0612 

04342 

002400 


CLA 



0613 

04343 

172457 


STA 

S503- ! 


0614 

04344 

172461 


STA 

$505 • I 

CLEAR HOP’S 

0615 

04345 

071247 


STA 

S500 

CLEAR ACTIVE TRACK COUNTER 

0616 

04346 

162463 


L DA 

5508 - I 


0617 

04347 

171251 


STA 

S509. I 

SETUP RETURN JUMP 

0618 

0435P 

061247 

S552 

1 DA 

5500 

PICKUP TR. /SECTOR ADDRESS 

0619 

04351 

001727 


ALP 

, ALF 

A8-A15 TO A 0 — A 7 

0620 

04352 

170506 


STA 

ARTBF, I 

PUT TRACK ENTRY IN BUFFER 

0621 

04353 

115250 


•ISP 

$50 7 - I 

READ ONE TRACK 

0622 

04354 

0603/5 


l DA 

S 82 9 


0623 

04355 

070374 


STA 

S828 

RESET -64 

0624 

04356 

065247 


i DP 

S 5 0 0 

PICKUP TR./SECT. PATTERN 

0625 

04367 

155100 

S5fc 3 

r.pp 

CMEM- I 

COMPARE TO RECORD 

0626 

04360 

002001 


R S S 


GOOD 

0 627 

04361 

026406 


.IMP 

PROUT 

ERROR 

0626 

04362 

035100 


1 S? 

CMEM 

INCR. INPUT BUFFER ADDR. 

0629 

04363 

034374 


1 S'? 

S8?a 

64 WORDS FINISHED? 

0630 

04364 

026357 


JMP 

S5R3 

DO ANOTHER WORD 

0631 

04365 

061247 

S554 

L DA 

5500 

PICKUP CURR. TR. VALUE 

0632 

04366 

042462 


ADA 

S5-06 

ADD l TO TRACK ADDR. 

0633 

04367 

071247 


STA 

S50 0 

STORE TR./SECT. A DDR . ♦ 1 

0634 

04370 

050171 


CPA 

T OP T9 

LAST ADDR.+l 

0635 

04371 

026373 


.IMP 

*♦2 

YES-FINISHED COMPLETE PASS 

0636 

04372 

026350 


.IMP 

5552 

NO-DO ANOTHER TRACK 

0637 

04373 

102501 


l I A 

01 

SW. REG. TO A 

0638 

04374 

001700 


ALF 


BIT .11 TO BIT15 

0639 

04375 

002020 


S S A 


BIT1 1*0? 

0640 

04376 

026315 


JMP 

S550-2 

NO-LOOP CHECK 

0641 

04377 

002400 


CLA 



0642 

04400 

171250 


ST* 

S 5 0 7 - I 


0643 

04401 

171251 


STA 

5509. I 

CLEAR NOP’S 

0644 

04402 

062467 


IDA 

CHA4u 

NO. OF CHAR. *28 

0645 

04403 

06b466 


1 DP 

I AD40 

ST. ADDR. OF PRINT BUFFER 

0646 

04404 

114102 


.ISP 

1 0 2 B • I 

OUTPUT MESSAGE 

0647 

04405 

126217 


JMP 

TRVEP, I 

EXIT CHECK 

^648 

04406 

005727 

PRC U T 

HLf 

r BLF 

B8-S15 TO B0-B7 

0649 

04407 

114113 


JSP 

CONV . I 

CONVERT OCTAL TO ASCII 

0650 

04410 

060206 


L D A 

S81 2 

377 TO A 

0651 

044U 

010111 


ANt 

CARRv+1 

- RETAIN M.S. DIGIT 

0652 

04412 

070001 


STA 

1 


0653 

04413 

060475 


I. DA 

5331 

1774CJ0 MASK 

0654 

044 14 

010112 


ANt 

CARRY+2 

M!QDL*E DIGIT 

0655 

04415 

001727 


ALP 

r ALF 


0656 

044 16 

005727 


PLF 

f BLF 


0657 

04417 

030001 


I OF 

1 


0658 

04420 

072504 


STA 

MES51 *8 

SETUP PRINT MESSAGE 



p AGf, 4 v )59 *< VJ 3 SPFCIAL DOC use DIAGNOSTIC FOR 2115/2116 


0659 

0442J 

060206 


L DA 

S 8 1 2 

377 TO A 

0660 

04422 

010112 


ANT 

C ARR v + 2 

RETA I <9 LOW DIGIT 

0661 

04423 

001727 


A LF 

r ALF 


06 6 2 

04 4 24 

030476 


1 Oh 

S 8 3 2 

- 

0 6 63 

0 44 25 

072505 


STA 

HES51+9 

SETUP PRINT MESSAGE 

0664 

044 26 

165100 


1 DF 

CHFH . I 

PICKUP ERROR TR. VALUE 

0665 

04427 

000727 


hLF 

,BLF 

B8-P15 TO B0-B7 

0666 

04 430 

114113 


OSH 

CONV . ! 

CONVERT OCTAL TO ASCI 1 

0667 

04431 

060206 


l DA 

se 12 

377 TO A 

066 8 

04432 

010111 


ANC 

C ARR v + 1 

RETAIN M.g. DIGIT 

0669 

04433 

07000 1 


STA 

1 


0670 

04 4 04 

060475 


1 DA 

S831 

17740P MASK 

0671 

04435 

010112 


ANT 

C ARR v+2 

MIDDLE DIGIT 

0672 

04436 

001727 


ALF 

, ALF 


06 73 

04437 

005727 


RLF 

rHLF 


067 4 

04440 

03000 1 


I OR 

1 


0675 

0 4 4 4 1 

072515 


STA 

HES51 +17 

SETUP PRINT MESSAGE 

0676 

04 44? 

060206 


1 PA 

S 8 1 2 

377 TO A 

0o77 

04443 

010112 


aNT 

CARR v+? 

RETAIN LOW DIGIT 

C p 7 8 

0 4 444 

001727 


alf 

f ALF 


0679 

0 4 4 4 5 

072516 


STA 

KES51 +18 

SETUP RPINT MESSAGE 

06 60 

04446 

06247 1 


1 DA 

CHA 5^ 

NO. OF CHAR. *19 

068 1 

04447 

0664/0 


l DB 

I AD5*a 

ST. ADDR. OF PRINT BUFFER 

0662 

64450 

114102 


.1 S F 

1 020 - I 

OUTPUT ERROR MESSAGE 

0683 

04 4 51 

062473 


1 DA 

CHA5I 

NO. OF CHAR. *3ft 

0684 

04452 

066472 


L DH 

1 AP5« 

ST. ADDR. OF PRINT BUFFER 

0085 

04453 

1 14102 


.) S H 

1028-1 

OUTPUT ERROR MESSAGE 

0686 

0 4 4 34 

026305 


•IMF 

S554 

DO nfxt TRACK 

0687 

04455 

004760 

S50 1 

DEF 

WSRU'F + 1 

IND. ADDR. 

0688 

04456 

005450 

S5fc 2 

r.EF 

RSBUF + 1 

IND. ADDR. 

0669 

04457 

002574 

S5V 3 

I'EF 

w k | T f 

IND. ApDR. 

0690 

04 460 

002573 

S 52 4 

l.EF 

S 6 0 0 

IND. ADDR. 

0691 

0446 1 

003102 

S50 5 

f.'EF 

S60 1 

IND. ADDR. 

0*92 

04402 

000400 

S 5 2 6 

OCT 

4 00 

track incr. 

0693 

04 4 03 

003507 

S56 8 

PEF 

S 6 0 2 

IND. ADDR. 

0694 

04 464 

004517 

1 A£46 

hef 

HE84» 

BUFFER ADDR. 

0695 

04 4 65 

000017 

CHA 48 

LC I 

17 

CHAR. COUNT 

0696 

04466 

004527 

1 Al 49 

UEF 

MES4u 

BUFFER ADDR. 

0697 

04467 

000034 

CHA 49 

CCT 

34 

CHAR. COUNT 

0696 

04470 

004545 

1 A £ 5 0 

HEF 

HESSo 

PUFFER ADDR. 

0699 

04471 

000023 

CHA 50 

CCT 

23 

CHAR. COUNT 

0700 

04472 

004474 

1 AC51 

D E F 

HES5» 

BUFFER ADDR. 

070 1 

04473 

000045 

CHA51 

CCT 

45 

CHAR. COUNT 

0702 

04474 

042530 

MES51 

ASC 

19,E*PEC T En TRACK- ACTUAL JHACK 


04475 050105 

04476 041524 

04477 0425W4 
04500 020124 
04521 051101 
046HJ? 041513 
04503 026440 
04604 020040 

04505 020040 

04506 040503 
04547 052125 
44610 040514 
04511 020124 
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04512 

051161 




04513- 

041513 




04514 

026440 




04515 

020040 




045)6 

■020040 



0763 

04517 

047117 

MES 48 

ASL' 


04520 

027040 




04 521 

047506 




04522 

020124 




04523 

051101 




04524 

041513 




04525 

051446 




04526 

037440 



0704 

04527 

052122 

MES49 

ASC 


04530 

040503 




04531 

045440 




04 5 32 

040504 




04533 

042122 




04534 

042523 




04535 

051440 




04546 

041510 




04337 

042503 




0 4540 

045440 




04541 

041517 




04542 

046520 




04543 

046105 




04544 

052105 



0705 

04545 

052122 

KES50 

A SC 


04546 

040503 




04547 

045440 




04550 

0405w4 




04331 

042122 




04552 

042523 




045*53 

051440 




04554 

042522 




04555 

051117 




04556 

051040 



0706 

04557 

000000 

WTBUF 

BSS 

0707 

04757 

000000 

fcSfiUF 

HSS 

0708 

05247 

000000 

RTfcUF 

HSS 

0709 

05447 

000000 

RSEUF 

fcSS 

0710 

05737 

000000 

S 000 

BSS 

0711 

00105 



ORG 

0712 

00105 

005737 


LEE 

0713 




FNC 

** 1 

NO ERRORS* 




SC DIAGNOSTIC FOR 2115/2116 


8, NO* OF TRACKS ? 


1 4 r TRACK ADDRESS CHECK COMPLETE 


10, Track address error 


128 

WRITE TRACK 

BUFFER 

184 

WRITE SECTOR 

BUFFER 

128 

REAP TRACK BUFFER 

184 

1 

105ft 

$000 

READ SECTOR 

SUFFER 



DDC DISC DIAGNOSTIC 


BINARY 

SOURCE 


TAPE HP20346C 

TAPES HP20682C 

fcfP20683C 
HP20S84C 


SOURCE LISTING 


HP20346CL 



HAUL WvUii 


CCi p l 

* * No £ K R OKS** 


A?.fH,A,B,L 
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0001 



ASfB, 

A,B, 

L 


0003 

00107 



ERG 

1 07 B 


0004 

00137 

177700 

RASKi 

CCT 

177700 

A6-A15 HASH 

000b 

001 10 

000000 

CAFRY 

ESS 

2 


0006 

601 1,5 

00 14U7 

CGf' V 

EEF 

CON VI 


0007 

00114 

000007 

NASK2 

CCT 

7 

A 6 - A 2 hASN 

0006 

00115 

000060 

RASK3 

CCT 

60 

ASCII CONSTANT 

0009 

00116 

030000 

r> AS K4 

CCT 

30000 

ASCII 0 

0010 

00117 

030400 

R AS K 5 

CCT 

30400 

ASCII 1 

001 1 

00120 

0O0 110 

CHARY 

IEF 

CARRY 

BUFFER ADDR. 

0012 

00121 

000110 

C H A R tv 

EEF 

CARRY 

BUFFER ADDR. " WORK If- G' 

0013 

00122 

000000 

D At R 1 

CCT 

0 

HIGHEST PRIORITY DISK ADDRESS 

001 4 

601*3 

000000 

ERA DR 

CCT 

0 

DBA ADDRESS IN ASCII 

0015 

0O124 

000123 

A ft I M A 

CEF 

DMADR 

BUFFER ADDR. 

0016 

06125 

000002 

S 1 6 0 

CCT 

2 

CHAR. COUNT 

0017 

00126 

000122 

AD I AD 

tEF 

D ADR 1 

BUFFER ADDR. 

0016 

001 27 

000130 

I At 11 

CEF 

HES1 t 

BUFFER ADDR. 

0019 

60 1 30 

042115 

HES 11 

ASC 

1 1 , D fl A 

OCTAL CHANNEL # ? 


00131 

040440 






00132 

047503 






001 33 

052101 






00134 

046040 






00135 

04 1510 






00136 

04H516 






00137 

047 165 






00140 

046040 






0014 1 

021440 






6014* 

037440 





0020 

00143 

000U25 

LRA 1 1 

CCT 

25 

CHAR. COUNT 

0-0 2 1 

00144 

030066 

D (* A 0 6 

ASC 

1,06 


0022 

00 t 45 

030067 

CM07 

ASC 

1,07 


0023 

00 1 46 

000147 

I At 12 

CEF 

r E s 1 2 

BUFFER ADDR. 

0024 

0014/ 

0441U 

HES 12 

ASC 

17, HIGH 

PRIORITY OCTAL DISC ADDRESS ? 


00150 

043510 






00151 

020120 






00152 

051111 






00153 

047522 






60154 

044524 






60 1 55 

054440 






00156 

047503 






00 157 

052101 






00160 

046040 






60161 

042111 






00162 

051503 






00163 

020101 






00164 

042104 






00165 

051105 






60166 

051523 






06 1 o7 

020077 





0025 

00170 

000042 

CH A 12 

CCT 

42 

CHAR. COUNT 

0026 

00171 

000000 

TCF T 2 

CCT 

e 

TEST OPTION IN ASCII 

0027 

00172 

000733 

set 0 

IEF 

HUFF 

INPUT BUFFER ADDR, -WOW KING 

0028 

00173 

000733 

see l 

CEF 

HUFF 

INPUT BUFFER ADDR, 

0029 

00174 

177734 

S8t 2 

CCT 

177734 

BUFFER WORD COUNT-36 

0030 

00175 

020040 

set 3 

CCT 

020040 

ASCI ! BLANKS 

0031 

00176 

000000 

sext 

CCT 

0 

EXIT FLAG 

0032 

00177 

000000 

set 4 

CCT 

0 

INPUT CHAR. LENGTH 
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■01(133 

0054 
0 0 Gb 
0 0 3 6 
0037 
0056 
0039 
0114 0 
004 1 
004 2 
0 04 3 


C044 
0 0 4b 

Ovl 4 t 

0 0 4 7 
E i) 4 d 
fc O 4 9 
0 w b 0 
0ob 1 
00 3 2 
0 0 b 3 
0 0b 4 


0055 
0 0 b6 
0057 
0 0 58 


002 0 Z 

000120 

SBC 5 

CCT 

1 2 2 

002U 1 

0 P.1 0 0 0 w 

S8F 7 

CC I 

e 

0 02O2 

077777 

seta 

CCT 

77777 

00 2 0 3 

000006 

S8fe9 

ICT 

e 

0U254 

000000 

S8 1 0 

CCT 

e 

0 0 i 4 b 

125252 

SB 1 1 

LCT 

126262 

00,406 

0U03/7 

se 1 2 

CCT 

377 

00207 

0U0H00 

30 1 3 

CCT 

1? 

002 IP 

005747 

S £ 1 4 

LEF 

S UOv) 

00211 

0002 1 2 

I A r 1 6 

TF.F 

P E S 1 6 

002 1? 

04 11U 

R F E 1 6 

ASC 

11 , 6 l N A h Y 

0 U 2 l 3 

w 4 7 1 u 1 




02214 

0 3 1 13 1 




0 v) 2 1 b 

020124 




0021 6 

t)4 25 2 3 




002 l 7 

052043 




00 2 20 

050101 




W0 22 1 

052124 




00 22 2 

042522 




00223 

047043 




0 0 22 4 

03/440 




03 2 2b 

00 0 2 5 

CPA io 

CCT 

25 

0 02 2 6 

1 776C 7 

S 0 1 6 

CCT 

177667 

00227 

630000 

PwC R li 

CCT 

fc 

0O23 y. 

00 0/0 g 

C w C K u 

C CT 

0 

0024 1 

0 0 0 0 0 Cl 

LBl FP 

CCT 

0 

0U232 

1 7 7 7 6 0 

se 1 7 

CCT 

1 77 7oO 

0 A ? 3 3 

177760 

S« J 8 

CCT 

177760 

0 0 2 3 4 

0 0 0 3 c y 

s 8 1 y 

CCT 

( 

0023b 

0302n 1 

se; fj 

CCT 

e 1 

0 3 2 5 r, 

000237 

1 A [ IB 

IFF 

r E S i 8 

00 23/ 

04451 4 

PBS 18 

ASC 

22, ILLEGAL 

0 3 2 4 0 

046105 




0.12 4 1 

04G6C 1 




0 o 2 4 2 

04b340 




0 0 2 4 3 

041510 




0 3 2 4 4 

240522 




00 2 4b 

040503 




032 4 6 

052105 




00247 

051040 




00250 

044516 




0 0 2 b 1 

020 124 




0 025 2 

342523 




0W253 

052040 




0R254 

050101 




0 0 2 5b 

352124 




03206 

042522 




00257 

047340 




0O260 

050121 




0 0 2 6 1 

061161 




00262 

0455U5 




0 0263 

052105 




00264 

05104? 




0026 5 

0U0053 

ChA lb 

CCT 

53 

00266 

0O0271 

S022 

TEF 

StJUFF 

0026 7 

00027 1 

S 8 2 3 

CEF 

S 01: F F 

00270 

102001 

S 05 4 

PLT 

2 1 


80 Ch A k , COUNT 

ACTUAL Input C h A p . count 

K E T A 1 N A Sb - A 1 4 

LAST *096 BUFFER ADDRESS 

o 0 R M N G U / L CHAR. MASK 

UPPEP/lOw'ER CHAW. NASA 

A 0 - A 7 .‘■•■ASK 

TEMP. CHAW. SAVE 

ST. ADDS. OF BUFFER ARtA-K/h 

BUFFER A T UP . 

TEST PATTERN 1 


CHAK. COUNT 

- 7 3 CHAR. COUM 

HI MARY P A T T E P N wuRO 

CONPlEKEHT ALTERNATE a u K li FLAG 

COMP l_ . ALTERNATE BUFFERS FLAG . 

-16 w 0 R K I ■( G 

-16 RESET 

ASCII 

ASC ill 

BUFFER At OP. 

CHARACTER IN TEST PATTERN PARAH 


CHAR, COUNT 

SECTOR BUFFER AD DRESS-WORM KG 
SECTOR BUFFER ADDRESS 
k A N U A L BUFFER PRESET 
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0059 03271 000000 SttlFF PSS 64 SECTOR BUFFER 

0P60 00371 1U2H01 S8J 5 FLT 01 SAFETY FACTOR 

0061 00372 1243/3 S826 JMP S827,I RETURN TO MAIN PROCESSOR 

0062 00373 00220 1 S82 7 tEF S708 MAIN PROGRAM 

00b3 00374 177700 S328 CCT 177700 -64 WORKING 

0064 00375 177700 3859 CCT t 77700 -64 

0065 00376 000377 1M19 tEF F E S 1 9 BUFFER ADDR. 

0366 00377 053522 MES 19 ASC 7 , WRITE TRACKS ? 

00400 044524 

00401 042440 

00402 052122 

00403 040503 

00404 045523 

00405 020077 

0067 00406 000016 CHA19 CCT 16 C£AR. COUNT 

0068 00407 000410 1AI20 LEF MES2W BUFFER ADDR. 

0069 00410 053522 F-ES20 ASC 6,*R1TE SECTORS ? 

00411 044524 

00412 042440 

00413 051605 

00414 041524 

00415 047522 

00416 051440 

00417 037440 

0070 00420 000017 CH A 2k; CCT 17 CHAR. COUNT 

0071 03421 000422 IAI21 TEF FES21 BUFFER ADDR. 

0072 80422 853522 N&S21 ASC 19,WK/RE PARAMETER EXCEEDS 72 CHARACTERS 

00423 027522 

00424 042040 

00425 0501H1 

00426 051101 

00427 046505 

00430 052105 

00431 051040 
8043? 042530 

00433 041505 

00434 042504 
08435 051440 
00*36 033402 
00437 828103 
00440 044101 
80441 051101 

00442 041524 

00443 042522 

00444 051440 

6073 00445 600045 Ch A 2 1 CCT 45 CHAR. COUNT 

8074 00446 000870 S828 CCT 78 ASCII « 

0075 00447 000458 1A122 TEF FES22 BUFFER ADDR. 

8076 00450 020840 MES22 ASC 20, CHARACTER IN OCTAL PARAMETER ILLEGAL 

00451 020103 
08452 044101 

00453 051101 

00454 041524 

00455 042522 

00456 020111 
03457 047040 
00460 847503 



P AGE 

to) W 3 ■> i 

*oi special Luc in 

SC DIAGNOSTIC FOP 2U5/2H6 


00451 

05210 1 






00462 

0 4 b 4 4 0 






00 4 6 Z 

08fc 1 to 1 






0 0 4 O 4 

0 8 1 1 to 1 






00 48?) 

046305 






0 0 .4 6 6 

05 2 1 0 5 






0 0 4 o 7 

U8 1040 






004/0 

044514 






0047 1 

046105 






00472 

0 4 3 5 to 1 






00473 

0 461)4 0 




• 

■# 

0toi77 

00474 

000047 

CF A 22 

CCT 

47 

CHAR. COUNT 

0078 

00 47b 

1 7 7 4 a a 

se: i 

CC T 

1 77400 

A3-A1P MASK 

0 to 7 9 

00 476 

000040 

S 83 2 

ICT 

A d 

BLACK 

0y 80 

00477 

000084 

fa6J3 

CCT 

$ 4 

C 0 h 6 A 

00bl 

0 0 b to 0 

000087 

68^ 4 

CCT 

b 7 

SLASH 

0082 

0080 1 

000085 

5 62 5 

CCT 

5 b 

- 

0to«3 

H0 8C1 2 

004567 

AtolLlt- 

L' EE 

MR UK 


0 to b ^ 

0080 3 

004567 

* A to 1 6 

r e f 

V TP’JF 

WORM WO ADDRESS 

0to^5 

00b 0 4 

0 6 4 7 c 7 

AWS rJf- 

r. ef 

K SBUF 


to i ) 8 6 

0080b 

004707 

W A V) S 8 

! EF 

*SHUF 

wORK I 68 ADDRESS 

0 0 8 7 

00306 

0 v) 5 28 7 

A ft I 8 6 

l EF 

K 1 B U F 


0 088 

00847 

008257 

to A h T ti 

r ef 

KTRuF 

to* C K K I N ft A u D R E S S 

K'.' fc 9 

00 b 10 

008487 

i kSBF 

L' EF 

h S H U F 


0 to V 0 

008 11 

008487 

to A to 8 6 

Ifcf 

K 6 B U h 

toORKito'6 ADDRESS 

Utoto 1 

00 8 12 

030124 

SEC 6 

rcT 

124 

ASCI! T 

0 to to 2 

0 0 ;> 1 3 

000123 

5 83 7 

CC! 

12 3 

ASCII s 

W v> to 3 

0 0 8 1 4 

000818 

1 A 1 2 3 

L EF 

K K S2U 


t' t j 9 4 

008ib 

0 4 4 815 

6 1 S 2 3 

A SC 

1 to , 1 HPWCPEN CHARACTER in /Rv PaRAKETER. 


0 0816 

08O122 






0 4b 1 7 

047520 






0 3820 

042822 






0U321 

020103 






00822 

tJ 4 4 1 V; 1 






0O823 

05 1 1 to 1 






0082 4 

041324 






00025 

042522- 






003 26 

0201 1 1 






0 A 8 27 

047040 






0 0 0 3 R 

v)83522 






0 3831 

027522 






0Oj:j? 

042040 






000 33 

083 1 to 1 






0 0 5 3 4 

05 1 1 to 1 






04535 

046505 






00 8 3 6 

082105 






00537 

08 1 040 





Ol!9b 

00840 

000000 

set o 

CCT 

(' 

CHAR. STORAGE-ST. TRACK 

0 w to 6 

0 0 84 1 

000000 

se* l 

CC1 

2 

SEU. TRACK VALUE-CHAR. STORAGE 

e»y7 

00842 

0 to 0 5 4 3 

1 A l 2 4 

tEF 

KE524 

BUFFER ADi)K. 

fcu9 8 

008 4J 

058522 

F E £ 2 4 

ASC 

lv3 f wKlU 

PARAMETER INCUHRLETE 


03844 

044524 






0 0 8 4 8 

042440 






00846 

050101 






0084 7 

051 1 k> 1 






0 0 88 0 

0 4 6*) I; 5 






00881 

052105 
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00332 051040 

00553 044516 

00554 041517 

00555 046320 

00556 046105 

00557 052105 

BtiyQ 00360 000032 CHA24 GCT 32 “ CHAR. COUNT 

0100 00361 000362 I At 2b fEF MES23 BUFFER ADDR. 

0101 00562 053522 6&S25 A3C 15, WRITE TRACK BUFFER OVERFLOWED 

00563 044524 

00564 042440 

00565 052122 

00566 040503 
00367 045440 
04570 041125 
00571 043106 
04372 042322 
00673 024117 
00574 0531^5 
003/5 051 IL6 
00376 046117 
04577 050565 
0460W 042040 

0102 0 0 f > 0 1 000035 CM25 CCT 3b CHAR. COUNT 

0103 00602 177775 S8*2 CCT 177775 -3 COUNTER 

0104 00603 177775 S8*3 CCT 177775 -3 COUNTER-WORK U 6 

0145 00004 000000 L A V* T B CCT 0 LAST TRACK WRITE BUFFER A E DR .4-1 

B1W6 00605 000000 L A (* S fa CCT 0 LAST SECTOR WRITE bUFF. A L D R . + 1 

CIO 7 00U06 000607 I A 1 2 6 TEE RES26 BUFFER ABIJR. 

0106 0 0 f> 0 7 033522 "ES26 A3U 13, WRITE SECTOR BUFFER OVERFLOWED 

00610 044524 
04611 042440 
00612 0515O5 
00013 041524 
00614 047522 
006 15 02019:2 
00016 0523L6 
00617 043105 

00020 051040 

00021 047326 

00622 042322 

00623 043114 

00624 047327 

00625 0425IM 

0109 00626 000036 CHA26 CC1 36 CHAR, COUNT 

0110 00627 000006 K A S K 6 CCT 6 DMA AODR. 

Will 03630 000002 M AS 6 A CCT 2 MAR/WCR AflL'R. FOR CHAN. 6 

0112 00631 000003 MAS7A CCT 3 MAR/WCR ADDR. FOR CHAN. 7 

0113 00632 000000 ftCCMP CCT K WRITE COMPLETE FLAG 

0114 00633 140177 S8 4 4 CCT 14(3177 TRACK MASK 

01 15 00634 100O00 WCt MW CCT 100000 TRACK/SECTOR ADDRESS 

01 16 00635 W2O000 wDE A w CCT 020000 H.P. DISK AtUIR. AND CLC BIT 

0117 00636 0B0O00 WLIR CCT V STARTING ADDRESS 

0118 00637 000O00 hBCNT CCT 0 2 *S CCMPL. WD. COUNT 

0119 00640 177600 S 84 5 CCT 177600 SECTOR MASK 

0120 00641 000000 SGC MR CCT fc SECTOR STRING COMPLETE FLAG 

0121 00642 000000 S84 7 CCT 0 2'S COMPL . # OE SECTORS 



PAGE 

fa il 0 7 1 

*0 1- SPEC 1 At DUC DISC DIAGNOSTIC FOR 2115/2116 

8 122 

00u43 

080000 

£8 4 6 

L CT 

0 

ST. OF AVAILABLE hEm. 

0 1 23 

0 0 0 4 4 

000045 

! A 1 27 

CEF 

FES27 

BUFFER ADOR . 

U 1 2 4 

UU'>4‘j 

053522 

FEE 27 

A SC 

13,WR/ki miRD COUNT EXCESSIVE 


00 0 4 f. 

02/o 22 






00 6 4 7 

0 4 2 0 4 y 






0 0 6 6 i 

053517 






0 W 1 6 1 

051 t 6 4 






fafa;>b2 

0201 it, 3 






000 3 3 

04754b 






0 0 ob4 

04/124 






0 0 0 55 

& 2 fa 1 fa 5 






0 0 6 *j & 

054133 






0u">57 

042523 






0 0568 

05131 1 






006 61 

853165 





13125 

0 0 0 62 

000032 

C o A 2 7 

CC f 

32 

CHAR. COUNT 

8 1 2 6 

00663 

124664 

b6< U 

Jrfp 

£658,1 

return from interrupt 

0127 

0066 4 

003333 

set 0 

LEE 

) A IT 1 + I 

RETURN ADDRESS 

0 1 2d 

0066b 

080088 

bLf Lb 

CC ) 

0 

DISK BUST ERROR F L » G 

fc 129 

00666 

000667 

I Al 26 

CEF 

I" E S 2 6 

bUFFFR ADL'R. 

2 1 2« 

00 667 

042522 

H££ 26 

A S C 

1 7 , EPk'< 

R BUSY STATUS BIT U-bRlup 


fa U 6 7 0 

051117 






00671 

0510« e, 






006 7 2 

841125 






806 7 3 

051531 






03 6 7 4 

0 2') 123 






00o75 

052181 






W 0 o 7 6 

052125 






00077 

0514 4 •/ 






0 0 700 

041111 






00/0 1 

052843 






0 0 7 0 2 

042125 






0J703 

0511 1 1 






0 3 7 8 4 

047 lw7 






0076b 

020127 






00 746 

051257 






0 8 7 U 7 

0 51 10 4 





B1 31 

00 7 10 

080042 

C h A 2 6 

C Cl 

42 

CH A R , COUNT 

0102 

007 t 1 

0407 1 2 

I AT 29 

EEF 

FES29 

BUFFER ADOR. 

8 1 03 

007 12 

042111 

0 612 9 

A 9C 

7 , E I SC 

NOT READY 


00 7 13 

051503 






0 0 714 

820116 






007 15 

847524 






00/16 

020122 






0 0 717 

04256 1 






00 7 28 

042131 





8 1 34 

00721 

0800 1 6 

CM 29 

COT 

1 6 

CHAR. COUNT 

0135 

00722 

000723 

I A l 3fa 

CEF 

r ES38 

BUFF ER A D :)R . 

0 136 

0 0 7 23 

051185 

F6S38 

A SC 

7 , READ 

tracks ? 


00724 

040584 






00/25 

020124 






00726 

051 18 1 






03/27 

041513 






03/ 3 0 

0b 1448 






00731 

0 3 7 4 4 0 





8 137 

80732 

0 fa 0 v) 1 5 

CM 30 

( CT 

15 

char, count 

0138 

087 33 

000888 

HOF F 

ESS 

3 b 

INPIT BUFFER 


* .ft / H D 



PAGE, 0003 #01 SPECIAL ODC DISC DIAGNOSTIC FOP 2115/2116 


0139 

00777 

001000 

1 A£ 3 1 

CEF 

FES31 

0140 

01000 

051 165 

MBS 31 

A SC 

13, READ 


010O1 

04O5O4 





01002 

020120 





01003 

040522 





01004 

040515 





01005 

042524 





01006 

042522 





01007 

02011 1 





01010 

047103 





01011 

047515 





01012 

050114 





01013 

042524 





01014 

042440 




0141 

01015 

000031 

CH A3 1 

CCT 

31 

0142 

01016 

000000 

l A F TB 

CCT 

0 

ei43 

01017 

000000 

LAE SB 

CCT 

0 

0144 

01020 

001021 

I At 32 

r ef 

H t S 3 2 

0145 

01021 

051105 

HES 32 

ASC 

1 4 , R t A It 


01022 

04O5O4 





01023 

020124 





01024 

051 lul 





01025 

041513 





10 1 0 2 6 

020102 





01027 

052506 





01030 

043105 





01031 

051040 





01032 

647526 





01033 

042522 





010 34 

0431 1 4 





01035 

047527 





01036 

042504 




0146 

01037 

000034 

CH A 32 

CCT 

34 

0147 

0 1 046 

00104 t 

1A133 

CEF 

MES33 

0148 

01041 

0511O5 

M6S 33 

ASC 

7, READ 


01042 

040504 





01043 

02O123 





01044 

042503 





01045 

052117 





0134 6 

051123 





01047 

020077 




0149 

01O5H 

000016 

CH A 33 

CCT 

16 

0150 

01051 

001052 

1 A1 3 4 

CEF 

P E 5 3 4 

0151 

01B52 

135110 5 

FES 34 

ASC 

1 5 , R E A P 


01053 

040504 





01054 

020123 





61055 

1342503 





01056 

06211? 





01057 

051O40 





01060 

041125 





01061 

043106 





01U62 

042522 





01063 

020117 





01064 

0531O5 





01065 

051 106 





0106b 

046117 





01067 

053505 





BUFFER ADDR. 
PARAMETER INCOMPLETE 


CHAR. COUNT 

LAST TRACK READ BUFFER ADDR.+l 
LAST SECTOR READ SuFF. ADBR.+t 
BUFFER ADDR. 

TRACK BUFFER OVERFLOWED 


CHAR, COUNT 
BUFFER ADDR. 
SECTORS ? 


CHAR. COUNT 
BUFFER ADDR. 

SECTOR BUFFER OVERFLOWED 



too t i y Wdl SPECIAL DDC HISC DIAGNOSTIC FOP 2115/2110 



0 1 vl 7 to 

0 4 2 0 4 0; 





c. 1 r. 2 

0 1471 

0 0 0 0 3 5 

C F A 3 4 

CCT 

35 

C H A o . C QUIT 

to 1 o3 

to 1 *' 7 2 

0 O 0 0 0 0 

h CL HP 

CCT 

e 

READ COMPLETE FLAG 

*; 15 4 

0 10 7 3 

0 4 0 v. 0 f’ 

RCC KK 

CCT 

(/ 

TRACK /SfcC Toft ADDRESS 

v- 1 b 5 

0 1 -> 7 4 

126075 

S6f 2 

JrlP 

$853/ l 

RETURN FROM IMfc'RRUPT 

c 1 bo 

0 1 07 5 

033747 

set 3 

CF.F 

* A I T l ♦ 1 

RETURN ADDRESS 

v 1 b 7 

0 10 7 o 

000300 

CTM1K 

CCT 

fc 

track value: of input buffer 

to 1 56 

0 14 7 7 

000000 

C S E C f 

CCT 

fc 

START IfG SECTOR VALUE OF INPUT 

to i 59 

0110 U 

0 0 M 0 0 0 

CPE M 

CCT 

fc 

ST. ADDR. OF 1KPIT BUFFER 

to i o 2) 

0110 1 

000000 

6 fc v C 

CCT 

fc 

* 0 H D 4 -r. I |H I 6 S Pi. TOR 

0 1 o 1 

011 42 

0000011 

SEC TC 

CCT 

fc 

?’ S COftPL. tf OF SECTORS 

C 102 

0 110 2 

0 0 3 1 2 7 

sat 4 

I F F 

S743 

LOUP LOCw. 

010b 

0 112 4 

000000 

KC I ft 

CCT 

fc 

starting address 

0. 1 04 

0117b 

002574 

S61 6 

IFF 

h K I T t 

LOOP CONTROL 

0 10b 

0112 0 

0011M7 

1 M 35 

LEF 


BUFFER AtTlft. 

l 1 o b 

0110 7 

0 4 7 1 0 5 

o 6- E 3 b 

A S C 

5 , I’ECODE 

ERROR 


Will. 

041517 






villi 

04 2 1i;5 






01112 

020105 






01113 

Vi 5 1 122 






0 1114 

04/52? 





s; lo7 

0 1 1 1 b 

000014 

ChA 35 

cc r 

14 

char, count 

0 166 

01116 

001117 

1 A 1 30 

l E.F 

KES35 

BUFFER AD fi-ft . 

110 9 

bill? 

to 5 11 to 5 

P fc' £ 3 6 

ASC 

U,READ PARITY ERROR 


01120 

0 4 6 5* 4 






0 1121 

020120 






01122 

M 4 0 5 22 






w 1 1 2 3 

044524 






0 112 4 

000440 






0 1125 

042522 






0 1 12 0 

051117 






01127 

0 5 1 H 4 0 





0 1 7 0 

0 1130 

000021 

CPA3b 

CCT 

21 

CHAR. COUNT 

0 17 1 

0 1131 

000000 

S6E7 

CCT 

0 

TEMP. 

0 172 

0113 2 

totol 1 33 

IA137 

T.EF 

PES37 

BUFFER ADDRESS 

0 173 

0 1133 

052122 

0 fc S 37 

ASC 

16, TRACK 

SECTOR NO. 


0 113 4 

04 05 to 3 






to 1 13b 

045440 






01136 

020040 






01 1 37 

020040 






0114 !•) 

051505 






0 114 1 

041524 






0114 2 

047522 






01143 

020040 






01144 

020040 






0114b 

020127 






0114 0 

04752? 






01147 

042340 






01 1 bC 

047117 






01151 

027040 






01152 

020040 





017 4 

01153 

000040 

C h A 3 7 

CCT 

40 

CHAR. COUNT 

f: 17b 

01154 

001155 

1 AI. 36 

TEF 

P E R 38 

BUFFER ADDRESS 

0176 

0115 5 

047525 

F E E 3b 

ASC 

14, OUTPUT 

I NPtJT 


to 1 156 

052120 






01157 

052521 






01160 

020040 







p AGE J <d #01 SPECIAL bDC DISC DIAGNOSTIC FOR 2115/2116 



01161 

020040 






01162 

020040 






01163 

020040 






01164 

020111 






01166 

047120 






01166 

052524 






01167 

020040 






01170 

020040 






01171 

020040 






01172 

020040 





0177 

01173 

000034 

CHA38 

CCT 

34 

CHAR. COUNT 

0178 

01174 

003130 

170 

rf f 

S743+1 


Cl 79 

01175 

0O1574 

PRC T 

EEF 

FROTC 

I NO. 

6160 

0117 6 

003510 

1 35 5 

EEF 

S855 

IND, 

0101 

01177 

803612 

S85 8 

EEF 

S769A 

IND. 

0182 

01200 

003574 

S8E9 

EEF 

S 7fc 9 

IND. 

0108 

01201 

003572 

S8CB 

EEF 

S 769-2“ 

IND. 

0104 

01202 

0O2042 

S8€ l 

EEF 

1 4 

IND. 

6185 

01203 

004030 

1776 

LEE 

S 7 7 6 


0188 

01204 

177577 

08 1 2 

CCT 

177577 

-129 WORKING 

018 7 

01205 

177577 

S8C3 

CCT 

177577 

-129 

B 1 88 

01206 

177643 

see 4 

cci 

177643 

-93 WORDING. 

0189 

01247 

177^43 

sseb 

CCT 

177643 

-93 

0190 

01210 

077777 

S8e 9 

ccr 

77777 

INTERRUPT TIHE-0U7 CONSTANT 

0 191 

01211 

0B1457 

S87 O 

EEF 

S903 

WRITE INI. HISSING 

0192 

01212 

001464 

Sfc? 1 

I EF 

S924 

READ ! N T . M I S S I k G 

0193 

01213 

000003 

BF L AG 

CCT 

0 

SUPPRESS PRINT FLAG 

0194 

01214 

001215 

I A l 43 

EEF 

FES43 

BUFFER A DDR. 

0195 

01215 

053522 

RES 43 

ASC 

11, MITE 

ABORT -TRACK 


01216 

044524 






01217 

242440 






01224 

040502 






01221 

047522 






0 1222 

052355 






61223 

052122 






01224 

043503 






01225 

045440 






01226 

020040 






C1227 

020040 





0196 

01230 

030025 

CHA 43 

CCT 

25 

CHAR. COUNT 

0197 

012 31 

001232 

1 A£ 44 

TEF 

FES44 

BUFFER A DDR. 

0196 

01232 

051105 

HES 4 4 

ASC 

1 0 ; Rt A D 

ABORT-TRACK 


01233 

0405O4 






01234 

020101 






01235 

041117 






01236 

051124 






01237 

026524 






01240 

051101 






01241 

041513 






01242 

020040 






01243 

020340 





0 199 

01244 

000024 

CM 4 4 

CCT 

24 

CHAR. COUNT 

0260 

01245 

03/600 

S872 

CCT 

37600 

BIT 7 TO BIT 13 FASX 

0201 

01246 

004222 

TfH 

tef 

TRV£R 

IND. ADDH. 

0202 

01247 

000000 

S5C0 

CCT 

0 

ACTIVE TRACK COUNTER 

0263 

01250 

003512 

sec 7 

EEF 

HEAD 

IND. ADDR. 

0264 

01251 

004027 

S5C 9 

EEF 

S6L-3 

I Nil, A DDR. 



0 0 i ) 


1 


i-.PttfAL one rise diagnostic for 2115/2115 


U 0 "j 

51 2 5 2 

1/7577 

S5 1 0 

C CT 

177577 

0 2 D 6 

0 125 3 

0 2 00 0 0 

seta 

C CT 

2000 a 

fc 2 U 7 

0 1 2 0 4 

17/6 0 U 

S ft € 1 

CC1 

1 7 7 6 00 

b 2 o 6 

0 12 56 

177600 

b 86 2 

CCT 

177600 

\) 2 0 9 

0 1 2->N 

0 G 4 0 2 3 

1775 

FEE 

S 7 7 5 

£52 lb 

0 1 2d7 

0 V) 4 tf 1 5 

I 77 3C 

[ E F 

S773L 

021 1 

0 1 2 6 0 

103512 

wE A !» I 

EEF 

READ, I 

0212 

0 1 2 0 1 

0602O6 

S 86 3 

L LA 

SB t 2 

02 13 

Ul2b? 

010111 


A N D 

C A R R Y + I 

0214 

0 1203 

001727 


A L F , 

ALF 

0215 

0 l 2 6 4 

070001 


STA 

1 

0216 

012 6 5 

060475 


1 DA 

b 8 3 1 

b 2 1 7 

01266 

0 l 0 1 1 2 


AND 

C. A R h Y + 2 

0 218 

0 1 2 3 7 

0O1727 


ALF, 

ALF 

£3 21 9 

U 1 2 7 0 

0 30 O O 1 


J OR 

1 

0220 

0127 1 

071226 


STA 

F F 3 43 + 9 

0 221 

01272 

060206 


IDA 

S 8 1 2 

'2*22 

0 12 7 3 

u 10112 


AMD 

C A H h Y + 2 

0223 

0 1 2 7 4 

0W1727 


ALF' , 

ALF 

02.24 

0 12 7 6 

07 1 227 


STA 

WES 4, >+10 

C225 

01276 

125277 


JMP 

S884 , I 

0 2 26 

0 1277 

003/57 

S86 4 

IFF 

S885+ 1 

U 2 2 7 * 

* * * * 1 W P *J } bUBROtTI*ME 

-TTY OR PR 

0228 

01 H'i 0 

0 00 3 0 u 

SQi 0 

FOP 


U 2 2 9 

01 1 0 1 

0 60 1 7 3 


l l) A 

S80 1 

0230 

0 1 3 3 ? 

b 7 U 1 7 2 


STA 

S80O 

0231 

01333 

kJ 0 4 \ 7 4 


l DB 

S8o2 

0 23 2 

0 l 3 0 4 

0 6 w 1 7 5 


L DA 

S 8 1' 3 

0233 

013 0 6 

170172 

S7fc 0' 

STA 

S 3 0 0 , ! 

0 23 4 

0 1 3 « 6 

0341/2 


I SZ 

S b V 0 

0 235 

0 1 30 7 

O340U l 


1 S7 

1 

0235 

U 1 3 1 U 

023305 


J HP 

S 7 fi 0 

0237 

a 13 11 

0 O 0 4 0 0 


CLB 


0238 

01312 

074176 


STB 

SEXT 

02 39 

0 1313 

10 25 0 1 


L I A 

1 

0240 

013 14 

000066 


CLE, 

ELA 

0 241 

0 1 3 1 6 

0 0 4 l 7 3 


L DB 

Sit 1 

0 24 2 

01316 

0601/7 


LDA 

S8P4 

0243 

01317 

00204 1 


SEZ, 

RSS 

02 4 4 

01320 

025323 


J HP 

* + 3 

0 2 4 5 

01321 

nnti 


J SB 

1 0 1 8 , I 

0246 

01322 

025324 


JMP 

* +2 

Or4 7 

01323 

114104 


J SB 

1048, I 

L’24 8 

01524 

070201 


STA 

S80 7 

0 2 4 9 

01325 

031300 


BAR 


0250 

01526 

002020 


S S A 


0251 

01327 

002004 


I NA 


0252 

0133U 

010202 


AND 

S808 

0 253 

01331 

0 4 U 1 7 3 


ADA 

see 1 

0254 

01332 

070203 


STA 

sac 9 

0 255 

01333 

0 60-1/3 


1 DA 

SbU 1 

0256 

0 1 5 3 4 

07O172 


STA 

S80O 

U 257 

01335 

0 6 0 2 w 5 


t da 

sen 

0256 

01336 

070204 


STA 

S 8 1 0 

6259 

01337 

00020 1 


LDA 

S8C7 

6260 

013 4 0 

125300 


JMP 

S900, 1 


6261***** GET A CHARAC1EH SUBROUTINE 


-241 OCTAL 
UPPER b L A H K 
WORKING -1?8 
-128 
iND- 

IND. 

DOUBLE IDO. 

377 TO A 

RETAIN M.S. DIGIT 

17741 - 0 -TO A 
R E T A I u MIDDLE DIG II 


SF TUP 'PRINT MESSAGE 
3 7 7 TO A 

RETAIN LOW DIGIT 
SETUP PRINT MESSAGE 


* * * * 

RETURR-ENTERtD w I 1 h $8/4 SETUP 
BUFFER ADUR. TO A 
RESTORE GOFFER A DDR. 

B * F U L L BUFFER COUNTth 
A * 2 ASCII BLANKS 
FILL LuCN. wlTh BLANKS 
I NCR. BUFFER ADDRESS 
INCH. BUFFER COlNT 
LOOP 
CLEAR a 

CLEAR F X I T FLAG 

SW. REG. TO A 

DEC, BIT TL E 

BUFFER A COR . TC B 

INPUT CHAR. LENGTH TO A 

fc»l f PP INPUT 

E * G , T T Y I N P j T 

PR INPUT 

COMPLETE 

tty input 

SAVE INPUT char. CUUNT 
LS8 TO H S F< 

SKIP IF CHAR, COUNT EVEN 
IF, NOT- ADD ONE 
RETAIf A 0 - A 14 

ADD 1ST WORD BUFFER' AODRESS 
LAST ■ 0 R D BUFFER ADDRESS 

RESTORE BUFFER ADDRESS 
UPPEP/LCUER CHAR. MASK TU A 
WORKING U/L CHAR. MASK 
ACTUAL INPUT CHAR. COUNT TO A 
EXIT-ACTUAL INPUT CHaR, CCUNT*A 
* * * * 
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0262 

01341 

000000 

SSfc 1 

NOP 


RE TUP- 

0263 

01342 

064204 


L DS 

Sb 1 vi 

WORK 1 u; l / L CHAR, riASu Tu b 

026 4 

01343 

100172 


IDA 

S800 , I 

PICKUP b!5FE« » C H D 

0265 

01344 

0 0 b 0 2 0 


SSH 


SNIP IF L ) w E R HALF C H A h . 

0266 

01345 

001727 


A L.F 

, ALF 

ROTATE A LEFT 8 

0 267 

01346 

010206 


AND 

S 8 1 2 

RE TA I \ A/-A7 

026 8 

01347 

006021 


SSB 

,R SS 

SKIP [F UPPER CHAR, 

0 269 

01350 

034172 


isz 

SB 00 

I NCR. uUFKFR At rw . 

02 7 0 

01351 

005200 


FBI 


ROTATE uPPER-LCaFR MASK 

027 1 

01352 

074204 


STB 

S 8 i 0 

p E s t o p c t / l char, mask 

0272 

01353 

070207 


STA 

S 8 1 3 

SAVE L-AR. IN TEMP. LOCN. 

0273 

01364 

060172 


t U A 

S80P 

CURRFVT- BUFFER A DDR . 

0274 

01355 

050203 


CPA 

S809 

C C " P * R - *:Th LAST BUFFER A P 

0275 

0 135b 

025361 


J HP 

S 7 P 1 

YES , St T F x J T FLAG 

0276 

01357 

560207 

S 7 1 2 

IDA 

S 8 1 3 

RESTORE Char. In a 

0277 

01360 

126341 


J HP 

S90 1 , I : 

EXIT-Char. IN A 8 - A 7 

0278 

013*1 

034176 

$76 1 

ISZ 

SEAT 

SET £ x ! T fu.aG 

0279 

0 1 3b2 

025357 


.JMP 

S 7 0 2 

return 

0280***** ASCII-UCTAL VERIFICATION POtTINt ***** 

0281 

01563 

000000 

S96 2 

NOP 


L h T £ R t i> * I I r C M A * # 1 ^ A id - A 7 

02 8 2 

01364 

064234 


l DB 

S8 19 

ASCII •/ TO a 

0283 

0 1365 

050001 


CPA 

l 

co hr are a to a 

0 28 4 

0 1366 

025405 


JMP 

S 9 0 2 A 

CHAR. LEGAL-EXIT 

0 28 5 

01567 

006004 


I NR 



0280 

01570 

0b 44 4 6 


CP8 

S830 

h * 0 0 <? « 7 P ? 

0287 

0 1571 

002001 


RSS 


FIMS- -EC -CHAR. ILLEGAL 

0288 

01572 

025365 


JHP 

S902*2 

NOT f I M SHE 0 

0289 

01373 

07000 1 


STA 

1 

A TO B 

0290 

01374 

060475 


IDA 

S83 i 

A 8 - A 1 5 MASK 

02 91 

0137? 

010450 


AND 

*£322 

RETAIN A 8- A 1 5 

0292 

01376 

030001 


I OR 

1 

B8-B7 TO A 

0293 

01377 

070460 


STA 

HES22 

restore message 

0294 

0 1400 

«6*U/4 


LDA 

CHA22 

NO . OF CH AR . »3 9 

0295 

0140 1 

064447 


LDP 

1 AC22 

ST. ADDR. OF PRINT BUFFER 

0296 

01402 

114102 


jsa 

1028, I 

( . TP;' T E R 0 0 R ME SSAOE 

0297 

01403 

102001 


MT 

01 

TURN S * . 1 5 OFF IF On 

0298 

0 1 4 o 4 

125363 


JMP 

5902 , I 

f h kLP RETURN 

0299 

01405 

035363 

S 9 k 2 A 

ISZ 

S 90 2 

i NCR . EXIT ADDRESS 

0300 

01406 

025404 


JHP 

S902A-1 

EXIT 

0301* 

**** OCTAL TO 

ASC I l 

CONVERSION - h 

L/lGlTS***** 

0302 

01407 

000000 

C OF V 1 

h OP 


OCTAL to ascii cunv. subr. 

0 3 wj 3 * 

ENTERED *ITh 1 

B»6 I 16 IT OCT Al NUMBER 

0 30 4 

014 10 

06&120 


IDA 

CHARY 


0305 

0 14 11 

070121 


STA 

CHARM 

reset array address 

0306 

0 1 4 1 ? 

060116 


LDA 

MASK4 

ASCII 0 TO A 

0307 

014 13 

006020 


SSB 


MS 8 *n? 

0308 

014 14 

0601 17 


LDA 

HA9K5 

ASCII 1 TO A 

0309 

014 15 

170121 


STA 

CHARM, I 

1ST DIGIT COMPLETE 

0310 

fcl 41 6 

005700 


eLF 


ROTATE 4 LFFT 

0 3 l 1 

014 17 

060114 


LDA 

HASN2 

77 TO A 

0312 

01420 

01000 1 


AND 

1 

Bg-B? TO A 

0313 

01421 

030115 


I OR 

HASK3 

6 x In A2-A? 

0314 

0142? 

130121 


I OR 

CHARw, 1 

COMPLETE 2ND DIGIT 

0315 

01423 

170121 


STA 

C H A P p ] 

RESTORE 1ST *0RG 

0316 

0 1424 

034121 


ISZ 

C H A R * 

lhCK. ARRAY a Df» . 

0317 

01425 

005723 


etF 

f R B R 

ROT Alt 3 LEFT 

0318 

01426 

0601 14 


LDA 

HASN2 

7 7 TO a 
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0 319 

01427 

010001 


AND 

1 

o3?0 

0 14 30 

030115 


ICR 

M A S K 3 

0321 

01431 

001727 


ALF, 

ALF 

0 322 

0143? 

170121 


STA 

CHAR* , I 

0323 

0 1433 

005723 


BLF, 

PbK 

0 32 4 

01434 

0601 14 


l DA 

M A S r 2 

0325 

014 35 

0 1 O 0 0 1 


AND 

1 

0326 

0 1456 

9301 15 


1 (jR 

M A S K 3 

0327 

0 1 437 

13W121 


I OR 

C H A R k , I 

U32B 

0 14 4W 

170121 


STA 

C H A R h t I 

0329 

0. 1 4 4 1 

03412 1 


1 S 1 

C H A H w 

0 330 

01442 

005723 


ELF, 

RBR 

0331 

014 4 3 

O60114 


LDA 

MASK? 

0332 

01444 

OlOOOl 


AND 

1 

0333 

01445 

(3 301 15 


1 OR 

"ASK 3 

0334 

0 1446 

U01727 


ALF , 

ALF 

0335 

01447 

1 7 u 1 2 1 


STA 

IRARw, I 

0336 

B 1 4 i ft 

0 O 6 7 2 3 


ELF, 

R B 6 

033 7 

01451 

0 6 0 114 


L DA 

M ASK ? 

0338 

01462 

010.30 1 


A N P 

1 

C 3 39 

01453 

0 30 1 16 


I OR 

M A S K 3 

034 3 

0 1454 

130121 


1 OR 

C H A R , I 

034 1 

v5 1 4 5 5 

170121 


STA 

CHAR*, 1 

0342 

0 14 5b 

125407 


JMR 

C ON V 1 , I 

0 3 4 3 * * * * * 1 N T E k H U P 1 

E Rfi UF< 

SUrtRGUT I NE 

0344 

0 14U7 

000000 

S9t 3 

NOP 


0 3 4 O 

Wl^bil 

061641 


LUA 

C H A 4 0 

0 3 4 6 

01461 

065524 


l DH 

I A U 4 (A 

0 34 7 

014 62 

1 141W2 


J SB 

19 28, I 

03 4U 

0 14 6 3 

02-J47 1 


JMP 

39 0 5 

03 4 9 

014 6 4 

000900 

S9f 4 

NOP 


0 3 50 

0 1465 

001556 


LUA 

CHA4 1 

035 1 

0 1 4 66 

06554? 


L UB 

I AD4 i 

U352 

0 14 67 

114102 


J SB 

1 « 28 , l 

0353 

014 70 

025473 


JMP 

S906 

0354 

014 71 

015475 

S9*f 5 

JSP 

S907 

0 355 

01472 

125457 


JMP 

S 9ft 3 , I 

0356 

014 7 3 

915473 

3560 

J SR 

S90 7 

0357 

0 14 7 4 

125464 


JMP 

S 9 ft 4 , I 

0353 

014 75 

000000 

S9C 7 

M OP 


0359 

01476 

064123 


L DB 

D M A D R 

0360 

01477 

054627 


CPB 

M ASK6 

0361 

01500 

025393 


JMP 

* + 3 

0362 

01501 

064631 


L D8 

M A S 7 A 

0363 

01502 

025504 


JMP 

*♦2 

036 4 

01503 

064630 


L D3 

h A S 6 A 

0365 

01504 

060107 


L D A 

MASK 1 

0366 

0 1 5G5 

011510 


AND 

S90 8 

0367 

0 1 506 

03000 1 


I OR 

1 

0368 

01507 

071519 


STA 

S9ft8 

0369 

0 1510 

106500 

S9H6 

L IB 

8 

0370 

Oiatl 

114U3 


J SB 

CONV, I 

0371 

01512 

060 110 


L DA 

CARRY 

0372 

01513 

071579 


STA 

MES42+8 

0373 

01514 

060111 


LDA 

CARR i 4 1 

0374 

0 15 15 

071571 


STA 

M E S 4 2 + g 

0375 

0 1516 

060112 


LDA 

CARRT+2 


B0-B2 TO A 
fcX IN A 0 » A 7 
ROTATE A LEFT H 
3 R I) DIGIT COMPLETE 
POT ATE 3 LEF T 
77 TO A 
B8-B? TU A 
6X I f! A 0- A 7 
COMPLETE 4 t h digit 
RESTORE 2ND WORD 
I NCR. ARRAY AD UR. 

RCTATt 3 LEFI 
7 7 TO A 
00-82 TO A 
6 X IN A 8 - A 7 
ROTATE A LEFT 8 
5TH DIGIT COMPLETE 
ROTATE 3 LEFI 
77 TO A 
H0-B2 TO A 
EX IN A 'A - A 7 
6 T H DIGIT COMPLETE 
RESTORE 3RD WORD 
RETURN 
* * * * * 

*R ITE INTERRUPT ERROR 
NO. OF CHAP. =23 
ST, AfDR. OF PR I XT SUFF ER 
OUTPUT MESSAGE 

continue 

NO. OF CHAR. =2 2 

ST. aDPH. OF PRINT BUFFER 

OUTPUT MESSAGE 

COfsT I M j t 

GET DMA WORD COUNT 

RETURN FROM *KtrE I NT . ERROR 

GET DMA WORD COUNT 

RETURN FROM READ IM. ERROR 

DMA OCTAL ADDH. TO B 
DMA CHAN. *6? 

Y F. S 

NO-ADDR .*3 

ADDR.a? 

1777O0 TO A 

RETAIN A6-A15 

1 OR WON A DURESS 

RESTORE SRW8 

INPUT WORD COUNT 

OCTAL TO ASCII CONVERSION 

SETUP PRINT MESSAGE 
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0376 

01317 

071572 


STA 

HES42+ 10 



0377 

01320 

061573 


IDA 

CHA4? 

no. OF ChAR.»22 


H376 

01521 

065557 


LDB 

I A C 4 2 

ST. ADDR. OF PRINT 

BUFF EH 

0379 

01322 

114102 


JSfl 

1428/ I 

OUTPUT MESSAGE 


0360 

01623 

125475 


JMP 

S 9 0 7 / I 

EXIT 


P.381 

01524 

001525 

1 A>1 40 

CEF 

FES40 

BUFFER ADDR. 


0382 

01525 

053522 

M E S 4 0 

ASC 

12/KWITE 

INTERRUPT MISSING 



01526 

044524 







01627 

042440 







01530 

044316 







01531 

052105 







0153? 

051122 







01533 

052520 







01534 

052040 







01535 

046511 







01536 

051523 







01637 

044516 







O1540 

U43440 






0383 

01641 

000027 

CH* 40 

CCT 

27 

char. COUNT 


0384 

01">4? 

001543 

I A I 4 1 

CEF 

PES41 

BUFFER ADDR. 


0383 

01543 

051105 

PEL 41 

ASC 

1 1 /READ 

interrupt hissing 



01644 

040504 







015 4 5 

0201 1 1 







015 4 6 

047124 







01647 

04252? 







01550 

051125 







01551 

W50124 







01552 

02O115 







01553 

044523 







01554 

051511 







01555 

047 107 






0386 

01556 

000026 

CFA41 

CCT 

26 

CHAR. COUNT 


0387 

0165 7 

001560 

I A I 4? 

TEF 

PES4? 

BUFFER ADDR. 


0 38 8 

01560 

042115 

PIE'S 4 2 

ASC 

ll/DMA WORD COnNTs 



01561 

040540 







01662 

053517 







01563 

051104 







01584 

020123 







V 1565 

047525 







01566 

047124 







0 1567 

036440 







01572 

020040 







015/1 

020040 







01672 

020040 






0389 

015 7 3 

000026 

CHA4? 

CCT 

26 

CHAR. COUNT 


B390***** PROTECT SU6RCUTIAE ■ 

* * * * * 



0391 

016/4 

000000 

PRC TC 

A OP 


PROTECT CHECH SUBROUTINE 

0392 

01575 

002400 


ft A 




0393 

01576 

071664 


STa 

S9 12 

CLEA 


0394 

01577 

071663 


STA 

S 9 1 0 

CLEAR TRACK ADDR. 

COUNTER 

039b 

01«100 

061259 


IDA 

S8 82 

-128 TO A 


0396 

01601 

071264 


St A 

S 88 1 . 

RESET COUNT E R 


0397 

01602 

06412? 


l Dft 

D APR 1 

H.p. DISK ADDR. TO 

6 

0398 

0 1 b03 

006004 


|RH 


SET TO L.H. ADDR. 


0399 

01004 

060107 


LDA 

PASK1 

177700 TO A 


0400 

0160b 

011617 


AM 1 

3911+3 

RETAIN A6-A15 


0401 

01606 

03O0t 1 


H>R 

1 

B TO A 




r A G E 

0 0 16 ‘ 
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G 4v?2 

r 

016 0 7 

071617 


STa 

S 9 1 1 + 3 

RESTORE S9H+3 

0 4 0 3 

016 10 

860 107 


LLA 

P ASK 1 

177700 TO A 

0 4 0 4 

0 16 11 

0 116 2 3 


AND 

S 9 1 1+4 

RETAIN A 6 - A t 5 

0 4 M 5 

016 12 

030001 


1UH 

1 

8 TO A 

0 4 06 

0 1618 

071620 


STA 

S 9 1 1+4 

RESTORE S911+3 

0 4 07 

016 1 4 

061663 

S9 1 1 

L D A 

S 9 1 4 

TR. ADDR. COUNTER TO A 

t:- 4 0 8 

016 1b 

001727 


ALE , 

ALF 

A0-A5 TO A H ~A 1 3 

y c u 9 

0 16 16 

001300 


K A R 


ADJUST TO A7-A13 

0 4 l V3 

01617 

152600 


C T A 

i'- 

TRACK APDR. TO DISK 

0 4 11 

0 1 6 2 0 

102500 


L I A 

ll 

INPUT STATUS 

y 4 1 2 

0 1 o 2 1 

001323 


R AR , 

h AR 

b i t 2 ro eiiw 

G H 3 

01622 

00201 1 


SLA, 

h SS 

WRITE ENABLE*!? 

04 14 

01623 

035604 


1 S7 

S 9 1 2 

no-protect counter 

k14 1 tj 

0 1 0 2 4 

0 3 5 6 b 3 


1 SZ 

S9 10 

INCR. TRACK ADDRESS 

0416 

01625 

035254 


1 S2 

S 8 8 1 

128 TRACKS FINISHED? 

0417 

01626 

025614 


JMP 

S 9 l 1 

NO-LOOP 

0 4 18 

01627 

065664 


l Da 

S 9 \ 2 

ACTUAL PROTECT CULNT 

0 4 19 

0 16 30 

11 “ 1 13 


J Stt 

C 0. N V , I 

convert octal to ascii 

0 420 

01631 

060206 


L D /* 

S« 12 

377 TO A 

0 421 

0 1 6 3 2 

010 111 


AND 

CARRY+1 

RETAIN M . S . DIGIT 

0422 

0 1 0 3 3 

031263 


ton 

5 8 80 

BLANK A8-A 15 

0 4 2 3 

0 163 4 

W 7 16 6 0 


STA 

PES45+1 2 

SETUP PR INI NESS AGE 

0424 

01636 

060112 


l DA 

CARP Y+2 

PICKUP ASCII COUN f 

fc 42b 

0 1 6 3 6 

071661 


STA 

P £ S 4 5 + 1 3 

PREPARE MESSAGE 

0426 

0 1 6 3 7 

061662 


CD a 

C H ft 4 5 

CHAR. C'0UNT»?8 

0 4 27 

01640 

065843 


LDP 

l A t: 4 6 

ST. adpr. of p k i t buffer 

0 428 

0 1 6 4 1 

114102 


J SB 

102B, I 

OUTPUT MESSAGE 

0429 

010 4 2 

1255/4 


jap 

PROTO, I 

R E CM R n 

0438 

016 4 3 

001644 

1 A 1 45 

[EE 

P E S 4 5 

BUFFER ADDR. 

0 431 

0 10 4 4 

047 117 

EES 4b 

A SC 

14, NO, C F 

PROTECTEE TRACES- 


0 104 5 

027040 






016 4 6 

047506 






01047 

020120 






01650 

051117 






01651 

052105 






0 1 6 :> 2 

041524 






01603 

042504 






01654 

020124 






01055 

051101 






w 1 656 

041513 






01657 

051455 






01660 

020040 






0 16 61 

020040 





0432 

01602 

000034 

CHA45 

CCT 

34 

CHAR. COUNT 

0433 

01663 

000000 

s 9 1 g 

CCT 

0 

track address counter 

0 4 34 

0 1664 

000000 

S912 

CCT 

0 

protect counter 

0 4 3b 

01/00 



L RG 

1700B 


iU36 

01700 

000000 

S9S 9 

NOP 


ERROR COUNT 

0437 

017 01 

000000 


NOP 


ERROR COUNT OVERFLOW 

0438 

01702 

001703 

1 AI 52 

LEF 

PES52 

BUFFER ADDR. 

0439 

0 1 7 w3 

041111 

MBS 52 

A SC 

19, BINARY 

PARAMETER EXCEEDS 72 CHARACTERS 


01704 

047101 






01705 

051131 






01706 

020120 






01787 

040522 






01710 

04051 5 






01711 

042524 
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017 12 

042522 





017 13 

020105 





01714 

054 It, 3 





01715 

042505 





01716 

042123 





01717 

020067 





01720 

031045) 





01721 

041510 





01722 

040622 





01723 

040503 





01724 

05210.5 





01725 

051123 




0440 

01726 

000046 

CHA52 

CCT 

46 

044 1 

02UU0 



CRG 

20008 

0442 

0200E 

060143 

START 

t DA 

CHA 11 

0443 

02001 

064127 


l DR 

I A 0 1 l 

0444 

W2M02 

114102 


J SB 

1028,1 

0445 

02003 

060125 


l DA 

s 1 0 a 

0446 

020 “54 

064124 


L DR 

AROMA 

0447 

02005 

114104 


J SB 

1040,1 

0448 

02006 

O60123 


L DA 

DMA UR 

0449 

02007 

050144 


CPA 

L M A 0 6 

0450 

B2O10 

026014 


JMP 

S3 00 

04 5 1 

0 2011 

050145 


CPA 

D m a e / 

0452 

02012 

026014 


JMP 

S 30 0 

0450 

02013 

026000 


JMP 

START 

04 54 

02014 

010114 

S32 0 

A N D 

M ASK2 

()4 55 

02015 

070123 


STa 

DM 4 DR 

0 4 56 

02U16 

06O 1 70 


L D A 

C M A 1 2 

04 5 7 

02017 

064146 


L DR 

I AD12 

04 58 

02020 

1U102 


J SR 

102B, I 

0439 

02021 

060125 


L DA 

S 160 

0 4 60 

02022 

064126 


LDP 

ADI AD 

04.61 

02023 

114104 


J SB 

1048, I 

0462 

02024 

06011 4 


IDA 

MASK2 

0463 

02025 

010122 


AND 

C A D R I 

0464 

02026 

070001 


STa 

I 

04&5 

02027 

O60122 


IDA 

DAUR1 

0466 

02030 

001727 


ALF, 

ALF 

0467 

02031 

010114 


AND 

M ASK2 

0 4 68 

02032 

001723 


ALF, 

RAR 

0469 

02033 

030001 


10 R 

1 

04 7 0 

02034 

07W122 


STA 

EADR1 

047 1 

02035 

115175 


J SB 

PROT, I 

0472 

02036 

102301 


L I A 

0 L 

0473 

02037 

001700 


ALF 


0474 

02040 

002O20 


SSA 


04 7 5 

02041 

115246 


J SB 

TRV, I 

0476 

02042 

060502 

1 4 

l DA 

AWTBF 

0477 

02O43 

006400 


( LH 


0478 

0 204 4 

174000 


STB 

L' r I 

0 4 79 

02045 

002004 


I NA 


0480 

02046 

050106 


CPA 

1 66B 

0481 

02047 

026051 


JMP 

* *2 

0482 

02050 

026044 


JMP 

T4 + 2 

0483 

02051 

075213 


STH 

PFLAG 

0484 

02052 

175103 


STB 

S654, 1 


CHAP. COUNT 

NO. OF CHAP .*14 

ST. ADD*. OF PRINT 90FFER 

OUTPUT MESSAGE 

NO. OF CHAP. = 2 

bUFFER ADOK. 

INPUT DMA ADDR. 

ASCII DMA ADDR. TO A 

EQUAL 1/6 

YES 

EQUAL 07 
YES 

NO-GET GOOD ADLRFSS 
A0-A? MASK 

RESTjRE OCTAL D M A ADDRESS 

.•.0. OF CHAR. »Z8 

ST. A DDR. OF PRINT SUFFER 

OUTPUT MESSAGE 

NO. OF CH 4K . =>2 

BUFFER ADDR. 

INPUT H.P. 0 1 SR ADOH. 

A 0 - A 2 MASK 
RETAIN 1 3-A2 
A TO B 

ASCII A DDR. TO A 
LEFT B 

RETAIN A 0- A 2 
LEFT 3 
B TO A 

RESTORE OCTAL H.P. DISK ADDRESS 
CHECK protect FEATURE 

S* . REG. TO A 
BIT 11 TO B i T 1 5 
SW.li-0? 

TRACK ADDR. CHECK SUBR, 

START OF BUFFER area 


LAST ADDR. OF BUFFER AREA 

FINISHED 

NO f FINISHED 

CLEAR FLAGS 
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£485 

02053 

076574 


STB 

► RITE 


B 4 8 6 

02054 

077104 


STB 

S 6 0 1 


£48 7 

02055 

£77512 


STB 

READ 


£488 

£2056 

175251 


STB 

S 50 9 , I 

CLEAR HOP'S 

£489 

021/57 

1025O1 


L I A 

Q 1 

Sw, REG. TO A 

£4 90 

£2000 

001200 


fi AL 


BIT 14 TC HIT 15 

0491 

£ 2 £ 6 1 

002029 


SS A 


BIT 15=0? 

£492 

£2062 

024270 


JMP 

S 8 2 4 

MANUAL PRESET 

0493 

0 2 0 63 

102501 


L I A 

£ 1 

SR. PEG. TO A 

0494 

02064 

002020 


S S A 


BIT 15*0? 

0495 

U2£6b 

026071 


JMP 

S 70 3 

NO-PR INPUT 

0496 

£2066 

060225 


L D A 

C H A 1 o 

NO. OF CHAR. = 2 1 

0497 

02O67 

064211 


L DB 

1 AD lb 

ST. addr. of print buffer 

0498 

£2070 

114102 


J SB 

102B, I 

OUTPUT MESSAGE 

0 4 99 

£207 1 

060203 

S7-C 3 

IDA 

S 80 5 

CHAR. COO NT *7 2 

0600 

02072 

070177 


ST A 

S8 0 4 

SETUP INPUT CHAR. L E N G 1 H 

£50i 

02073 

015300 


JSB 

S9P0 

CALL INPUT SUBROUTINE 

0b£2 

02074 

£40226 


ADA 

S 8 1 6 

ADD -73 TO C*AK. COUNT 

0 503 

02075 

002020 


S SA 


POS. "ERROR 

0 5 <4 4 

0207h 

026 104 


JMP 

S 7 f? 4 

NO ERROR 

050b 

U2077 

061726 


L DA 

CHA52 

CHAR. C 0 U N T * 3 8 

0 506 

£2 1 00 

0657o2 


LDB 

I AD52 

ST. BUFFER ADDR. 

£507 

02101 

114102 


J SB 

102b, T 

OUTPUT MESSAGE 

0508 

02102 

10200 1 


KLT 

0 1 

TURN 3*4.15 OFF IF ON 

0 50 9 

02123 

0260/ 1 


JMP 

S 7 0 3 

RETURN FOR NE> INPUT 

0 510 

£2104 

002400 

S 7 V 4 

CL A 



Boll 

02105 

£70227 


STA 

P WORD 

CLEAR BINARY PATTERN wiRO 

£512 

£2 106 

070230 


STA 

C W C R U 

WORK COMPLEMENT Fl aG 

0913 

W2107 

370231 


STA 

CduFF 

COMPLEMENT BUFFER * OR D 

£5 14 

W2U0 

£60233 


L DA 

SB ! 8 


C 6 1 5 

0 2111 

070252 


STA 

8817 

SET COUNTER TO -16 

0516 

021 12 

£15341 


JS6 

596 1 

GET A CHAR. 

0517 

£2113 

050476 


CPA 

S 3 3 2 

C«AR. "BLANK ? 

£518 

02114 

00230 i 


R SS 


►‘ORE BLANKS-TAPE LEADER 

0519 

0 2115 

026122 


JMP 

S 7 0 4 A 

BLANKS FINISHED? 

C520 

£21 16 

£64176 


l DB 

SEXT 

EXIT FLAG TO B 

0521 

02117 

0060 1 1 


SLB, 

R SS 

F L A G * 1 ? 

0522 

02120 

02b 1 12 


JMP 

*-6 

NO-GET ANOTHER CHAR. 

0523 

02121 

026077 


JMP 

S 70 4-5 

PRINT ERROR MESSAGE 

0524 

02122 

064 176 

S 7 6 4 A 

LDB 

SEXT 

EXIT FLAG TO B 

£525 

02123 

004010 


SLB 


FLAG»Q? 

0526 

£2124 

026077 


JMP 

S704-5 

NO-PRINT ERROR MESSAGE 

£52/ 

02125 

0U2O0 1 


b SS 


8LANKS FINISHED 

0628 

£2126 

£15341 

S7i 5 

JS6 

S92 1 

GET A CHAR. 

0529 

£2127 

050234 


CPA 

S8 1 9 

CHAR . *0 

0530 

02130 

02b l 40 


JMP 

S 7 06 

YES 

0531 

02131 

050235 


CPA 

S820 

CHAR .*1 

0532 

02132 

£26140 


JMP 

S706 

YES 

0533 

02133 

063265 


L DA 

CHA 1 8 

ERROR-CHAR. CUUnT*43 

0534 

£2134 

064236 


L DB 

I a D l a 

ST. ADDR. OF PRINT BUFFER 

£535 

02135 

114102 


J SB 

1028, I 

OUTPUT ERROR MESSAGE 

0536 

02136 

102001 


P L T 

0 i 

TURN SW. lb OFF IF ON 

0537 

02137 

026066 


J HP 

S703-3 

GET NEW PATTERN FROM TTY 

0538 

0214O 

006404 

S7-B6 

CLP, 

IN' 9 

8 MASK=000flCU 

0539 

0214 1 

010001 


A N D 

1 

RETAIN A 8 

0540 

£2142 

064227 


L Do 

PWORU 

PATTERN WORD TO B 

0541 

02143 

001200 


PAL 


A LEFT 1 
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0542 

02144 

085200 


RBL 


0 54 3 

02145 

03008 1 


IOP 

1 

0544 

82146 

070227 


STA 

P WORD 

0545 

02147 

034232 


ISZ 

S817 

0546 

02150 

026126 


JMP 

S 7 0 5 

0547 

02151 

060227 


IDA 

P WORD 

0548 

02152 

001300 


FAR 


0549 

02153 

070227 


STA 

PWORD 

0550 

02154 

01534 1 


J SB 

5 901 

0551 

02155 

050476 


CPA 

5832 

0552 

02136 

002001 


FSS 


0553 

02157 

034230 


ISZ 

CHORD 

0554 

8 2 1 b 8 

01534 1 


J SB 

S98 1 

0555 

02161 

050476 


CPA 

S832 

055o 

02162 

082001 


RSS 


0557 

02163 

034231 


ISZ 

CBUFF 

0 558 

02164 

068267 


L DA 

5823 

0559 

02165 

070266 


STA 

S 8 2 2 

0560 

02166 

060230 


LDA 

C w 0 R 1j 

0561 

02167 

081500 


ERA 


0562 

02170 

068375 


L DA 

5829 

8563 

02171 

070374 


STA 

S 8 28 

C564 

02172 

060227 


LDA 

P W 0 R D 

0565 

02173 

002040 

5 76 7 

SEZ 


056 6 

02174 

083808 


CMA 


0567 

02175 

170266 


STA 

So 2 2 ? I 

0566 

02176 

U34266 


ISZ 

S 8 22 

0 5b 9 

02177 

034374 


ISZ 

S 878 

0670 

02200 

026173 


JMP 

5 7 8 7 

05/1 

02201 

000000 

S 7 6 8 

NOP 


0572 

02202 

'060502 


LDA 

A W r B E 

0573 

02283 

006-400" 

» * 

C LB 

wr 

0574 

02204 

174000 


STb 

0, I 

U575 

02205 

002004 


INA 


0576 

02206 

05U506 


CPA 

ARTBE 

0577 

022O7 

026211 


JMP 

* +2 

G578 

O2210 

0 2 b 2 0 4 


JMP 

S 7 08 +3 

0579 

02211 

075780 


STB 

5999 

058 0 

02212 

07570 1 


STB 

8999+1 

0561 

02213 

060502 


LDA 

A w T B F 

0582 

02214 

070503 


STA 

* AWTB 

0563 

02215 

061205 


LDA 

S 8 6 3 

0 56 4 

02216 

071284 


STA 

S 8 62 

0565 

02217 

182501 


L IA 

01 

0566 

02220 

002820 


SSA 


0567 

02221 

826225 


JMP 

5 70 9 

0b 08 

82222 

060406 


L DA 

CHA 1 9 

05o9 

02223 

064376 


L DR 

I A U 1 9 

0590 

02224 

114102 


J SB 

1028, I 

0591 

02225 

860200 

S7E 9 

LDA 

5805 

0592 

02226 

070177 


STA 

sao4 

0593 

02227 

015300 


J SB 

5900 

0594 

02230 

040226 


ADA 

S 8 1 6 

0595 

02231 

002820 


SSA 


0596 

02232 

026240 


JMP 

S7.10 

8597 

02233 

060445 


LDA 

CHA21 

0598 

02234 

064421 


L DB 

I AD21 


B LEFT 1 

• INCL. OR B TO A 

* RESTORE PATTERN WORD 
INCH. BIT COUNTER 

16 BITS NOT FINISHED 

PATTERN WORD TO A 

ADJUST WORD RIGHT 1 

RESTORE FINAL BIN. PATTERN wORO 

GET A CHAR. 

CHAR ."BLANK? 

YES 

SET complement word flag 

GET A CHAR. 

CHAR. "BLANK? 

YES 

SET COMPLEMENT BUFFER FLAG 

RESET SECTOR BUFFER ADDRESS 
COMPL. WORD FLAG TO A 
AO TO E 
-64 TO A 

RESET WORKING COUNT 
BIN. PATTERN WORD 'fO A 
. E»0? 

nO-COMPL. EVERY WORD 

STORE IN BUFFER 

I NCR , BUFFER ADDRESS 

INCH. WORO COUNT 

BUFFER NOT FINISHED 

BEGINNING OF WRITE PROCESSOR 

ST, AlCP, -BUFFER 


LAST ADDR.+l 

FINISHED 

NOT FINISHED 

CLEAR ERROR COUNT 

CLEAR ERROR COUNT OVERFLOW 

RESET ARRAY AUDR. 

-65 TO A 
-65 TO WORKING 
SW. REG, TO A 
BIT 15*0? 

NO-PR INPUT 

NO. OF CHAR. *14 

ST. ADDR. OF PRINT BUFFER 

OUTPUT MESSAGE 

CHAR. COUNT-72 

SETUP INPUT CHAR, LENGTH 

CALL INPUT SUBROUTINE 

ADD -73 TO CHAR. COUNT 

POS. *ERRCR 

NO ERROR 

CHAR. COUNT-37 

ST* ADDR. OF PRINT BUFFER 
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P599 

02235 

114102 


J SR 

1028,1 

0600 

02236 

102001 


ELT 

F 1 

060 1 

02237 

026202 


JMP 

S708+1 

0602 

0224 jj 

015341 

S7 1 P 

J SB 

590 1 

to 6 0 3 

0224 1 

050476 


CPA 

S 8 3 2 

0001 

02242 

02b256 


JMP 

S 7 1 1 

0002 

02243 

060477 


CPA 

S 833 

0003 

02244 

026256 


JMP 

S 7 l 1 

0004 

02245 

050500 


CPA 

S 8 3 4 

0005 

02246 

026225 


JMP 

S 7 0 9 

0006 

02247 

050512 


CPA 

S836 

0007 

02250 

026265 


JMP 

S7 12 

0008 

02251 

060445 


L D A 

C H A 2 1 

0009 

02252 

064514 


L DH 

I AD23 

0010 

02253 

114102 


J SB 

102B, 1 

001 1 

02254 

102001 


HIT 

to 1 

0012 

02255 

026202 


JMP 

S708+1 

0013 

02256 

064176 

S 7 1 1 

L DB 

S E X T 

0014 

02257 

0060 1 1 


SLB, 

RSS 

0015 

02260 

026240 


JMP 

57 10 

Cto 1 6 

022b 1 

060542 


L D A 

A w T B E 

0017 

02262 

05W503 


CPA 

W AwTB 

0010 

02263 

027127 


JMP 

S 7 4 3 

0019 

02264 

026376 


JMP 

S 7 2 0-3 

0020 

02266 

063602 

S7 12 

L DA 

SB 42 

fcfc 21 

02256 

070603 


STA 

5 8 4 3 

0022 

02267 

002400 


CL A 


00 23 

02270 

070540 


STA 

S840 

0024 

02271 

015341 


J SB 

$90 1 

0o26 

02272 

050476 


CPA 

S 8 3 2 

0026 

02273 

026307 


JMP 

5713 

0027 

02274 

016363 


J SB 

S 9 02 

0 426 

02275 

026202 


JMP 

S 708+1 

0O29 

02276 

064114 


L DB 

MASK 2 

0030 

02277 

010001 


AND 

J 

0031 

02500 

064540 


L DB 

S 8 4 0 

0032 

02301 

005723 


ELF , 

RBR 

0033 

02302 

030001 


I OR 

1 

0034 

02303 

070540 


STA 

S840 

00 35 

02304 

8 3 4 6 to 3 


IS 2 

S 8 4 3 

to 036 

02305 

026271 


JMP 

S 7 12 + 4 

0037 

02306 

026317 


JMP 

S 7 1 5 

0038 

02507 

064176 

S 7 1 3 

L El B 

SEXT 

0039 

02310 

00601 1 


SLB, 

RSS 

0040 

0231 1 

026271 


JMP 

$7 12 + 4 

0 34 1 

0231? 

060560 

S 7 I 4 

L D A 

LHA24 

0042 

02313 

064542 


L DB 

1 AD24 

0043 

02314 

114102 


JSB 

1028,1 

0O44 

02315 

102001 


FLT 

0 l 

0 0 4 5 

023 16 

026202 


JMP 

S708+1 

BO 4 6 

02317 

01534 1 

S715 

J SB 

S 90 1 

0047 

02520 

050476 


CPA 

S 8 3 2 

0048 

02321 

026325 


JMP 

S7 16 

0049 

02322 

050501 


CPA 

$835 

0050 

02323 

026331 


JMP 

S 7 l 7 

0051 

02324 

026312 


JMP 

S71 4 

0052 

02525 

064176 

S7 i 6 

L DB 

SEXT 


OUTPUT MESSAGE 

TURN SR . 15' OFF IF On 

GET NEW TRACK PAREM. FROM TTY 

GET A CHAW. 

IS CHAR. A BLANK? 

YES-CHECK EXIT FLAG 

is Char, a comma? 

YES-CHECK EXIT FLAG 
IS CHAR. A SLASH? 

PROCESS CONTINUATION 
IS CHAR. AT? 

YES-PROCESS PARAMETER 

CHAR. COUNT*37 

ST. ADDR. OF PRINT goffer 

OUTPUT MESSAGE 

TURN SR. 15 OFF IF On 

GET NEW TRACK PAREM. FROM TTY 

EXIT FLAG TO B 

EXIT FLAG*1? 

NO 

YES 

ANY ENTRIES? 

NO-JUMP TO READ PROCESSOR 
YES-GET WRITE SECTOR PARAMERS. 
-3 To A 

RESET CHAR. COUNTER 

CLEAR CHAR. HOLD 
gIt A chaw. 

IS Char, a blank? 

CHECK EXIT FLAG 

CHECK LEGALITY-0-7 

GET NEW TRACK PaRE'm. FROM TTY 

7 TO 9 

RETAIN A 0 - A 2. 

PARTIAL TO B 
ROTATE LEFT 3 
I OR B TO A 
RESTORE RESULTS 
TRACK ADDR. FINISHED? 

NO-GET ANOTHER CHARACTER 
CONTINUE PARAMETER 
EXIT FLAG TO 6 
EXIT FLAG*i? 

NO-GET A CHAR. 

CHAR. COUNT "26 

ST. ADDR. OF PRINT BUFFER 

OUTPUT ERROR MESSAGE 

TURN SW.15 OFF IF ON 

GET NEW TRACK PAREM. FROM TTY 

GET A CHAR, 

IS CHAR. A BLANK? 

YES-CHECK EXIT FLAG 
IS Char, a - ? 

YFS 

NO-PRINTOUT ERROR MESSAGE 
tXIT FLAG TO B 
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0053 

02326 

004Q10 


SLR 


EXIT F L A G =* M ? 

0054 

02327 

026312 


JMP 

S714 

NO-ERROW PRINTOUT 

0055 

02330 

026317 


JMP 

S715 

GET A CHAR. 

0056 

02331 

060602 

S 7 1 7 

L D A 

S 8 4 2 

-3 TO A 

B057 

02332 

0706O3 


STA 

S 8 4 3 

RESET CHAR, COUNTER 

0U58 

02333 

00240O 


CL A 



O0 59 

02334 

07054 1 


STA 

S841 

CLEAR CHAR. HOLD 

0060 

02335 

015341 


JSB 

S 90 1 

GET A CHAR. 

0W6 1 

02336 

050476 


CPA 

S 8 3 2 

IS CHAR. A B L A iv K 7 

00 62 

023 37 

026353 


JMP 

S 7 1 8 

CHECK EXIT FLAG 

0 0 6 3 

02340 

015363 


J SB 

S 902 

CHECK LEGaLIT Y-0-7 

0064 

0234 1 

026202 


JMP 

S708+1 

GET ME w TRACK PAREM. FROM TTY 

0 065 

02542 

004114 


L D« 

M A S K 2 

7 TO 3 

0066 

02343 

010001 


AND 

1 

RETAIN A0-A2 

0067 

02344 

064541 


IDB 

S 8 4 1 

partial to h 

0068 

02345 

005723 


6LF, 

K8R 

ROTATE LEFT 3 

0u69 

02546 

03000 1 


1 OR 

1 

I OR h TO A 

0070 

02347 

070541 


STA 

S 8 4 1 

RESTORE RESULTS 

0 J7 1 

02330 

034603 


ISZ 

S 8 4 3 

TRACK SF.Q. CHAR. P 1 N TShED? 

60/2 

02551 

020335 


JMP 

S7 17+4 

NO-GET ANOTHER CHARACTER 

00 7 3 

02352 

026357 


JMP 

S 7 1 9 

continue parameter 

00/4 

02363 

064 176 

S 7 l 6 

LDB 

SEXT 

EXIT FLAG TO B 

007b 

02334 

006011 


SLH, 

R3S 

EXIT F L A G =» I ? 

06 7 6 

0 2355 

026335 


JMP 

S717+4 

NO-GET ANOTHER CPAk. 

UiJ/7 

02366 

026312 


JMP 

S7 14 

OUTPUT ERROR MESSAGE 

0078 

023 37 

060541 

S? 1 9 

l DA 

S 8 « 1 

S£U. ft 

007 9 

02560 

003004 


CMA, 

1 N A 

2 1 S CORPL , 

0080 

02301 

07O541 


STA 

S84 I 

SLOCK SEC. FUR TRACKS 

0 U 8 1 

0 2 5 o 2 

060540 


1. DA 

S64W 

ST. TRACK AO UR. OF 3 L Q C K 

0 0 0 2 

02363 

170503 


STA 

in A K T B f 1 

STCRfc TRACK A D L - * S S 

0083 

02364 

0345W3 


ISZ 

ft A ft T B 

1 NCR , ARRAY ADDRESS 

00 8 4 

02365 

002004 


INA 


INCk. TRACK ADDRESS 

0065 

02366 

035204 


IS/ 

S 86 2 

64 A OCR. ENTERED? 

0 7 66 

02367 

026371 


JMP 

* + 2 

NO 

0087 

O2370 

02640 1 


JMP 

S 7 20 

YES 

Ob 8 8 

02371 

034541 


IS/ 

S 84 1 

1NCP. ft OF TRACKS 

kH’69 

02372 

02r»3 6 3 


JMP 

S7 1 9+4 

MOT f IN I SHED 

6090 

02373 

004 176 


l i)B 

SEXT 

EXIT PI AG TO B 

00 91 

02374 

00601 1 


SLB, 

RSS 

EXIT FLAG*!? 

6092 

02375 

020240 


JMP 

S710 

GET ANOTHER WRITE TRaCk PAHEm 

0093 

02376 

060503 


L DA 

V* A W T B 


0094 

02377 

0 7 0 0 W 4 


STA 

L A w T rt 


06 95 

02400 

026406 


JMP 

S721 

GET 'WRITE SECTOR PARAMETERS 

0696 

02401 

060601 

S7J0 

IDA 

CHA25 

CHAR. C0UNT*29 

0097 

0240 2 

064501 


LDB 

IAD25 

ST. ADDR. OF PRINT BUFFER 

6 09 8 

02403 

114102 


J SB 

!02B, 1 

ERROR PRINTOUT 

0099 

02404 

1 92001 


FLT 

01 

TURN SW , 15 OFF IF ON 

0100 

0240b 

K2O202 


JHP 

S 7 P8+ 1 

GET NEW TRACK PAREM. FROM TTY 

0101 

02406 

060564 

S 72 1 

l DA 

A WSBF 


0162 

02407 

O70505 


STA 

0 A WSB •' 

RESET ARRAY ADDRESS 

0103 

024 1O 

0612O7 


L D A 

S 865 

-86 TO A 

0104 

0241 1 

0712O6 


STA 

S864 

-8$ TO WORKING 

0 1 05 

024 12 

102501 


LI A 

e 1 

SW . REG. TO A 

0106 

02413 

002020 


S S A 


PIT 15*0? 

0107 

02414 

02642O 


JMP 

S 722 

NO-PR INPUT 

0100 

024 15 

060420 


L DA 

CHA2B 

NO. OF CHAR. *15 

0109 

024 16 

064407 


LDP 

I A D 2 /■ 

ST. ADDR. OF PRINT BUFFER 
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0114) 

024 17 

114102 


J SR 

102B, I 

OUTPUT MESSAGE 


4! 1 1 1 

02 4 2O 

060200 

S 72 2 

L DA 

S805 

CHAR. COUNT =<72 


Cl 12 

02421 

070177 


STA 

S e <1 4 

SETUP INPUT CHAR. LENGTH 


0113 

02 422 

01530O 


J SR 

S 9 0 0 

CALL INPUT SUBROUTINE 


Cl 14 

02423 

040226 


ADA 

58 1 b 

ADD -73 TO CHAR. COUNT 


0)15 

02 4 24 

002020 


SSA 


POS.aERROR 


0116 

0242b 

026433 


jmp 

S 7 2 3 

NO ERROR 


0117 

02 426 

060445 


l DA 

C H A 2 1 

CHAR. COUNT =>37 


Cl 18 

02427 

06442 1 


LUH 

I AD21 

ST. ADDR. UF PRINT RuFFER 


any 

02430 

114102 


J S3 

1026, I 

OUTPUT ERROR MESSAGE 


0120 

0243 1 

102001 


PL T 

e i 

TURN SW.15 OFF IF ON 


0121 

0 2 4 3 2 

026406 


JMP 

S 7 2 1 

GET NEW SECT. PARfcM. FROM 

TTY 

0122 

02433 

015341 

S 7 2 3 

J SR 

S 9 6 1 

GET A CHAR. 


0123 

02434 

050476 


CPA 

S 8 3 2 

IS Char, a blank? 


0124 

02435 

02645 l 


JMP 

S 7 2 4 

'(E3-CHECK EXIT FLAG 


0125 

024J 6 

0504/7 


CPA 

S 8 33 

is char, a comma? 


0126 

02437 

W2t>45 1 


JMP 

37 2 4 

YES-CHECK EXIT FLAG 


B 1 27 

02440 

050500 


CPA 

8834 

IS CHAR. A SLASH? 


0128 

02441 

026420 


JMP 

S 7 2 2 

PROCESS CONTINUATION 


0129 

0 2 4 4 2 

050513 


CPA 

S 8 3 7 

IS CHAR. A S? 


0130 

02 443 

026455 


JMP 

S 7 2 5 

yes-process Parameter 


0131 

02444 

W60445 


IDA 

C H A 2 1 

CHAR . C0UNT»37 


to 1 32 

024 45 

064514 


L DM 

1 AD23 

ST. A DDR. UF PRINT BUFFER 


0133 

024 46 

1 1 4 U 2 


J SR 

122b, I 

UUTPUT ERROR MESSAGE 


0 134 

02447 

10200 1 


t-LT 

to 1 

TURN S«. 15 OFF IF ON 


0 135 

02450 

02o406 


JMP 

S 7 2 1 

GET NEW SECT. PakEm. FROM 

tty 

to 1 36 

02451 

0641/6 

67 2 4 

L DB 

SE XT 

EXIT FLAG Tu B 


0137 

02452 

00601 1 


SLR » 

RSS 

EXIT FLAG=1? 


0 13 8 

02453 

026433 


JMP 

5723 

NO 


C139 

02** 34 

02b5o3 


JMP 

6733-3 

YES-.JUMP TO wRl ft OPERATION 

0140 

02455 

0 6 0 b to 2 

8725 

LDA 

S3 42 

-3 TO A 


0 1 4 1 

02456 

070603 


STA 

S 8 4 3 

RESET CHAR. COUNTER 


0142 

02457 

002400 


CLA 




0 1 43 

02460 

070540 


STA 

S 8 4 R 

CLEAR CHAR. HOLD 


0 144 

02461 

0153.41 


J SB 

$90 1 

GET A. CHAR. 


0145 

02462 

050476 


CPA 

S 8 3 2 

IS CHAR. A BLANK? 


0 146 

0 2 4 63 

0264/7 


JMP 

S7?e 

CHECK exit flag 


C147 

02464 

015363 


J SB 

S 9 0 2 

CHECK LEG AL I T Y-0-7 


0148 

02465 

026406 


JMP 

S72 i 

GET nEw SECT. PaR£M. F*OM 

TTY 

0 149 

02466 

064U4 


L DH 

M A S K2 

7 TO B 


0 150 

02 4 6 7 

0101)01 


AND 

l 

RETAIN A 0 - A 2 


0151 

02470 

064540 


l. DR 

S 8 4 0 

partial to b 


0152 

0247 1 

005723 


ELF, 

R8R 

ROTATE LEFT 3 


0 1 53 

02472 

030001 


1 UP 

1 

ICR B TO A 


0 154 

024/3 

070540 


STA 

S 8 4 B 

RESTORE RESULTS 


B155 

02474 

034603 


I S L 

S 8 4 3 

SECTOR ADDR. FINISHED? 


0156 

02475 

026461 


JMP 

S725+4 

NO-GET ANOTHER CHARACTER 


0157 

02476 

026507 


JMP 

S7 28 

continue parameter 


ei58 

02477 

664176 

S 7 2 6 

L DB 

SF.XT 

t X I T FLAG TO 3 


0159 

02500 

006011 


SLR r 

H S S 

EXIT FLAGM? 


0160 

0230 1 

026461 


JMP 

S725+4 

NO-GET A CHAR. 


0161 

02502 

060860 

S 7 2 7 

IDA 

C H A 2 4 

CHAR. C0UNT=»26 


0162 

0 2 ‘>0 3 

064542 


LDP 

I A D 2 4 

ST. ADDR. OF PRIM BUFFER 


0 16 3 

0 25.14 

114102 


JSB 

!0?P, I 

OUTPUT ERRUR MESSAGE 


0 164 

0250 5 

10200 1 


PLT 

0 1 

IURN SW.15 OFF IF UN 


0165 

02536 

026406 


JMP 

S 7 2 1 

GET nEw SECT. PaREH. FROM 

TTY 

0166 

02507 

015341 

S72 8 

JSB 

S 9 0 1 

GET A CHAR. 
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01G7 

02610 

050476 


CPA 

S832 

0168 

02611 

026515 


JMP 

£729 

0 169 

0 2612 

050501 


CPA 

S 835 

fc 1 7 fcT 

02513 

026521 


JMP 

S 7 3 O 

0 17 1 

02514 

026502 


JMP 

S 7? 7 

0172 

02515 

064176 

8729 

l DB 

SEXT 

017 3 

02516 

004010 


SLK 


0174 

02617 

0265O2 


JMP 

S727 

0175 

02520 

026507 


JMP 

8728 

0176 

02521 

060602 

S7.J0 

L DA 

S 8 4 2 

0177 

02522 

070603 


STA 

S 8 4 3 

0178 

02523 

002400 


LLA 


0179 

02524 

070541 


STA 

S 6 4 1 

0180 

02525 

015341 


JSB 

$90 l 

0181 

02526 

050476 


CPA 

$832 

0182 

02527 

026543 


JMP 

S 7 3 1 

0183 

02530 

015363 


JSB 

S9»2 

0164 

02531 

0264M6 


JMP 

S 7 2 1 

0185 

02532 

0641 14 


1. liB 

MAS K ; 2 

0186 

02553 

0 10001 


AnL 

1 

016 7 

02534 

064541 


LDH 

S 0 4 J 

0186 

02535 

0M5723 


ELF, 

E B R 

018 9 

02536 

030O0 1 


I OR 

1 

0190 

02537 

070541 


STA 

S 8 4 1 

0191 

02540 

0 3 4 6 fc 3 


I $ L 

S3 43 

0192 

02341 

W26525 


JMP 

$730+4 

0193 

02542 

02654? 


JMP 

S 7 3 2 

0194 

025 4 3 

064176 

872 1 

L Bft 

SLXT 

0195 

02544 

0 0 o f i 1 1 


SLh, 

kSS 

019 6 

0264b 

326525 


JMP 

S 7 30 + 4 

0 197 

02546 

U265W2 


JMP 

S 7 2 7 

0198 

02547 

060540 

S/3 2 

LDA 

S 840 

0199 

02550 

170505 


S TA 

W AW SB, 1 

0200 

02551 

034505 


I S 1 

WA*SR 

0201 

02552 

060541 


LDA 

S 8 4 1 

0202 

02553 

170505 


STA 

W A « S U , 1 

0203 

02554 

034505 


I S L 

W A Vi s U 

0204 

02555 

0352O6 


1S2 

S864 

0205 

02556 

026560 


JMP 

* +2 

0206 

02057 

026566 


JMP 

S733 

0207 

02660 

064176 


l DP 

SEXT 

0208 

02661 

00601 l 


SLP, 

RSS 

0209 

02562 

02b433 


JMP 

S723 

0210 

02563 

060505 


L DA 

W AWSB 

021 1 

0 2 56 4 

O 7 0605 


STA 

L A W SB 

0 212 

02565 

026574 


JMP 

WRITE 

0213 

02566 

06U626 

S7-3 3 

L’JA 

CHA26 

0214 

U2567 

0646O6 


LDB 

I AD26 

0215 

02570 

114102 


JSB 

102 8,1 

0216 

02571 

102001 


FLT 

01 

0217 

02572 

02b406 


JMP 

S 7 2 1 

0218 

02573 

126574 

S66 0 

JMP 

WRITE, I 

0219 

02574 

000000 

WRITE 

NOP 


0220 

02575 

064123 


LDB 

EMADR 

0221 

02n76 

060107 


I DA 

MASK 1 

0222 

02577 

013002 


AND 

W R 2 

0 223 

02600 

0300P 1 


I OR 

1 


IS CHAR. A blank? 

YES-CHECK EXIT FLAG 
IS CHAR, A - ? 

YES 

NO-PRINTOUT ERROR MESSAGE 
EXIT FLAG TO B 
EXIT FLAG*!?? 

NO-ERROR PRINTOUT 
GET A CHAR. 

-3 TO A 

RESET CHAR, COUNTER 

CLEAR CHAR . HOLD 
GET A CHAR. 

is char, a blank? 

CHECK EXIT FLAG 
CHECK LEGALITY-SW 
.GET NEW SECT. PARE*. FROM TTY 
7 TO ft 

RETAIN A Ci - A 2 
Partial to g 

ROTATE LEFT 3 

ICR B TO A 

RESTORE RESULTS 

SECTOR SEQ. CHAR, (• In I SHED? 

NO-GET ANOTHER CHARACTER 

CONTINUE PARAMETER 

EXIT FLAG TO b 

EXIT FLAG-1? 

NO-GET ANOTHER C'AK, 

OUTPUT ERROR MESSAGE 

STARTING SECTOR ADDRESS TC A 

PUT I N WRITE SECTOR ARRAY 

1 NCR. ARRAY ADEAtSS 

NO. UF CONSECUTIVE SECTORS 

PUT IN -RITE SECTOR ARRAY 

1NCR. ARRAY ADDRESS 

«5 ENTRIES IN SECTOR WRITE BUFF 

NO 

YES 

EX I T FLAG TUB 
EXIT FLAG-1? 

GET ANOTHER SECTOR WRITE PaKEM. 

LAST BUFFER ADDR.+l 

PERFORM WRITE OPERATION 

NO. OF CHAR. *30 

ST. ADDR. OF PRINT BUFFER 

OUTPUT ERROR MESSAGE 

TURN SW.15 OFF IF UN 

GET NFW SECT, PaREM. FROM TTY 

RETURN JUMP 

1 N 0 . RETURN 

- DMA OCTAL ADDR, TO R 
1777U0 TO A 
RETAIN A6-A15 
I OR DMA ADDRESS 
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02 2 4 

026 31 

073302 

STA 

w R 2 

022b 

02632 

060107 

i DA 

h A S K i 

0226 

0260 3 

0130H 

AND 

W R 7 

0227 

026J4 

03300 1 

10K 

1 

0228 

02005 

073011 

STA 

W R 7 

0229 

0 2 o 0 6 

054627 

C PB 

M A S K 6 ’ 

0230 

02007 

026612 

JMP 

* + 3 

0231 

0 2o 1 1? 

064631 

L OB 

i< A S 7 A 

0 232 

0 261 1 

026613 

JMP 

* + 2 

0233 

02oi2 

0 6 '* 6 3 0 

LDB 

F A S 6 A 

0 2 34 

026 1 3 

060107 

L DA 

F A S K i 

0235 

0 2614 

013003 

ANT 

IN R 3 

0236 

026 15 

03000 1 

I OR 

1 

023 7 

026 16 

073003 

STA 

w R 3 

0238 

02017 

000107 

l. DA 

F ASK 1 

0239 

026 2 '3 

015005 

AND 

V* R 4 

0240 

02621 

03000 1 

I OR 

1 

024 1 

02*22 

073085 

STA 

W R 4 

0242 

02623 

073010 

STA 

v» R t) 

0243 

02624 

060 U- 7 

IDA 

F A S K 1 

0244 

0 2*25 

013006 

A N D 

P R 5 

0245 

02626 

03000 1 

I OR 

J 

0 24 6 

02627 

073606 

STA 

,vR5 

0247 

026 SO 

064122 

LDB 

CADki 

0248 

02631 

060107 

IDA 

F A S K 1 

6249 

026 32 

013O12 

A In D 

WKB 

0250 

02633 

030O0 1 

I OK 

1 

0251 

02634 

075012 

STA 

WR8 

025 2 

02635 

006004 

I NB 


0 253 

0 2*36 

060ib-7 

IDA 

F- A 5 K 1 

0 2 0 4 

02637 

013400 

A N 0 

W H 1 

0255 

026 40 

030001 

1 OR 

1 

0 2 56 

026 41 

073009 

STA 

V.Ri 

0257 

02*42 

06O107 

l. DA 

MASK 1 

0258 

02*43 

W13016 

AND 

W R 9 

0259 

026 4 4 

030001 

I OR 

1 

0260 

02*45 

073816 

STA 

W R 9 

0261 

02646 

07304 1 

STA 

K R 1 1 

0262 

02647 

072765 

STA 

W R 1 A 

0263 

02650 

002400 

CLA 


0264 

02651 

078632 

STA 

WCOMP 

0265 

02652 

070641 

STA 

SCOMP 

0266 

02653 

070665 

STA 

buflg 

0267 

02654 

060502 

IDA 

AW TBF 

0268 

02655 

870303 

STA 

W A W T B 

0269 

02656 

860504 

S7 J 4 L D A 

AWSBF 

0270 

02657 

070505 

STA 

W A w SB 

G 27 1 

02660 

164503 

LDB 

W A w T B , I 

0272 

02661 

034503 

1SZ 

W A W TB 

0273 

02bb2 

060503 

L D A 

W A w T 8 

0274 

02663 

050604 

CPA 

L A w T B 

0275 

02664 

034632 

IS?. 

W C 0 M P 

0276 

02655 

060633 

EDA 

S844 

0277 

02666 

010634 

AND 

WCGMh 

0278 

02667 

005727 

ELF 

,6LF 

0279 

02*70 

005300 

R8R 


0280 

02*71 

030001 

I OR 

1 


RESTORE WR2 
177700 TO A 
RETAIN A6-A15 
FOR DMA ADDRESS 
RESTORE WR7 
DMA CHAN. *6 
YES 

NO^-ADDR ,«3 

A 0 DR . » 2 

1777011 TO A 

RETAIN A6-A 1 b 

I OR MAR ADDRESS 

RESTORE WR3 

177700 TO A 

RETAIN Aft-A 15 

1 0 R MAR ADDRESS 

RESTORE WR4 

RESTORE WR6 

177700 TC A 

RETAIN A6- A 1 b 

1 OR *Ck ADDRESS 

RESTORE WRb 

H.P. DISK ADIJR. TC 8 

177700 TC A 

RET A I N A 6 - Alb 

1 OR DISK ADDRESS 

RESTORE WR8 

L.P. DISK A DDR, TO 3 

1777'/'/ TO A 

RETAIN A6-AI5 

I OH DISK ADDRESS 

RESTORE WH 1 

177700 TO A 

RETAIN A6-A15 

I OR DISK ADDRESS 

RESTORE wR9 

RESTORE wRll 

RESTORE w R 1 A 

- CLEAR FLAG 
CLEAR FLAG 
CLEAR FLAG 

RESET WRITE TRACK BUFFER ADDR. 

RESET WRITE SECTOR BUFFER aDDR 
PICKUP TRACK ADDR. 

I NCR . ARRAY ADDRESS 
CURRENT ARRAY ADDR. 10 A 
LAST BUFFER ADDR. 4-1? 

YES-SET WRITE COMPLETE FLAG 
TRACK MASK-14037? 

RETAIN A 1 5- A 1 4 , A 8 - A 7 
1 0 - A 5 TO A8-A13 

TRACK ADDR. TO A 
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026 1 

02672 

073634 


STA 

RCCMW 

0 2b2 

0267 3 

1 645uo 

S 72 4 A 

LDB 

KAWSB, I 

*5283 

02674 

034505 


I S i 

W A*$B 

tj 26 4 

02675 

06O64U 


L DA 

S 8 4 5 

0285 

B 2 o 7 6 

010634 


A Nil 

KOOK* 

0286 

0267 7 

030001 


! OR 

1 

02 b 7 

02700 

070664 


STA 

RCOM* 

026 8 

02701 

164505 


LDB 

R A w S 8 , I 

0289 

02702 

0345M 5 


IS7 

RAW SB 

0290 

02703 

000505 


l DA 

RAW SB 

0291 

02704 

050505 


CPA 

L A R SB 

0292 

02735 

034641 


I S £ 

SCOMP 

0293 

02706 

006003 


S ZB , 

RSS 

0294 

02707 

0265M2 


JMP 

$72 7 

0295 

02710 

074000 


STB 

0 

0296 

02711 

001727 


ALE * 

ALF 

0297 

02712 

001323 


RAR, 

RAR 

0298 

02713 

04OIO5 


A DA 

105B 

k;299 

02714 

005004 


LMA , 

1 N A 

030 0 

0271b 

040106 


ADA 

1068 

0 301 

. 02716 

002320 


SSA 


03P2 

02717 

0 2t»7b5 

S7Z5 

JMP 

S 7 3 S 

0303 

02720 

074000 


STB 

0 

0304 

02721 

001727 


ALP, 

ALF 

030b 

02722 

001 323 


RAR, 

RAR 

R3o6 

02723 

003304 


C M A , 

I N A 

0 307 

02724 

M 7 O 6 5 7 


STA 

V-DCN f 

03 08 

02725 

002400 


CLA 


0 309 

02726 

fc.30 105 


10P 

IfiSfe 

0-510 

02/27 

070636 


STA 

KD I « 

0311 

02/30 

00/004 


CMB, 

I NB 

0312 

02731 

074642 


STB 

S 84 7 

0313 

02/32 

060105 


t DA 

1058 

0314 

02733 

M70643 


STA 

S 8 4 8 

0315 

02734 

060267 

S 72 6 

L PA 

S8?3 

0316 

02735 

070266 


STA 

S 8 22 

0317 

02736 

060375 


L DA 

S829 

0318 

02737 

070374 


STA 

S828 

0319 

02740 

160266 

b 7>2 7 

l DA 

S822, 1 

0320 

02741 

170643 


STA 

S 8 4 8 , I 

0321 

027 42 

034266 


IS/ 

S822 

0322 

02743 

03464,5 


I SZ 

S848 

0323 

02744 

034374 


1SZ 

S 82 8 

0324 

0274b 

0267 4;? 


JMP 

S 7 3 7 

0325 

027 46 

034642 


IS/ 

S 8 4 7 

0 326 

02747 

026734 


JMP 

S736 

0327 

02750 

060 37b 


L D A 

S 829 

0326 

02751 

010635 


AND 

WDMAW 

0 32 9 

0275? 

030122 


I OR 

EADH1 

0330 

027 53 

070635 


STA 

WDMAw 

0 331 

02754 

026762 


JMP 

S 7 3 9 

0332 

02755 

O60662 

S7'2 8 

IDA 

C H A 27 

0333 

02756 

064644 


l DB 

I AD27 

0334 

02757 

114102 


J SB 

1B2B, I 

033b 

0276O 

102001 


R LT 

01 

0336 

02761 

026202 


JMP 

S 7 O 8 ♦ l 

0337 

02762 

060663 

S72 9 

L D A 

S 8 4 9 


RESTORE W'COhw 

PICKUP STARTING SECTOR ADDR. 

INCR. ARRAY ADDRESS 

SECTOR MASK-177600 

RETAIN A0-A6 

SECTOR ADOR. TC A 

RESTORE WCOMW-TR./Stcr. COMPLETE 

PICKUP U OF CON3EC. SECTORS 

INCR. ARRAY ADDRhSS 

CURRENT ARRAY ADDR . TO A 

LAST BUFFER A DDR. ♦ I 

YES-SET SECTOR STRING COMP. FLAG 

SECTOR VALUE >0? 

NO-ERROR PRINTOUT 
B TO A 

MULTIPLY BY 6 A 

ADD 1ST AVAIL. LOCK. VALUE 

2 * S COM PL. 

SUB TK . LOWER FROM UPPER 

-ERROR-KUFFER LENGTH EXCEEDS MEM. 
GOOD. HEM. E 1 T 

MULTIPLY BY 64 

?’$ CLMPl . OF TOIal t*.QRC COUNT 
WORD COUNT READY 

1 OR START ADDR. OF AVAIL. MEM. 
OUTPUT AND ST. ADDR. READY 

2 1 S COMPL, # OF' SECTORS 
RETAIN U OF SECTORS 

ST. OF AVAILABLE MEM. 

RESET SECTOR PATTERN ARRAY ADDR. 

RESET -64 

PICKUP PATTERN WORD 
STORE IN OUTPUT BUFFER 


SECTOR COMPLETE? 

NO 

entire buffer complete? 

NO 

YES 

RETAIN A 6 - A 1 5 

I OR h.P. DISK ADDR. 

RESTORE WDMAW 

OUTPUT TO DISK 

CHAR. COUNT-32 

ST, ADDR. UF PRINT BUFFER 

OUTPUT ERROR MESSAGE 

TURN SR. 15 OFF IF ON 

GET MEM WRITE PARAMETERS 

RETURN JUMP 
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0553 

'02763 

070306 


STA 

6 

1NT. LOCN. 

0339 

02764 

070307 


STA 

7 

INT, LOCN. 

0 3 4 vl 

027 65 

102530 

W R 1 A 

l I A 

0 


0 34 1 

02766 

0W1727 


ALF, 

ALF 


0542 

02767 

002020 


S S A 



0343 

02770 

026776 


JMP 

S739A 


0344 

02771 

060721 


L DA 

CMA29 


0345 

W2772 

064711 


LDB 

I AP29 


Co 4 6 

02773 

1 141162 


J SB 

1028, I 


0 34 7 

02774 

102001 


PIT 

0 1 


034b 

02775 

026765 


JMP 

v*K 1 A 


0349 

02776 

105100 

572 9A 

CLF 

0 

TURN-OFF INTF.RRUPT SYSTEM 

0350 

02777 

060634 


IDA 

KCGMW 

TRACK/SECTOR ADDRESS 

0551 

03000 

102600 

wR 1 

C TA 

2 

L t P. DISK ADDRESS 

0352 

03031 

060635 


IDA 

R DP Aw 

H.P. DISK AODR. AND CLC 

0353 

03032 

102600 

«x R S 

C T A 

fc 

DBA CHAN. #6/7 

0354 

03003 

106700 

wK? 

CLC 

2 

MAR A DDR. #2/3 v 

0 355 

03004 

060656 


IDA 

R 0 I R 

STARTING ADDRESS-BIT 15*0 

0356 

03005 

102603 

WR# 

C TA 

0 

MAR ADDR. #2/3 

0357 

0 3 04 5 

102700 

*Kt 

STC 

0 

wCR ADDR. #2/3 

035 8 

03007 

O60637 


L DA 

w D C N T 

. 2‘S COMPL.-wORD COUNT 

0369 

0 3010 

102600 

w R t 

C T A 

0 

wCR ADDR. #2/3 

0360 

0 3 811 

103730 

*P? 

STC 

0 ,C 

DMA CHAN. #6/7 

0 351 

038 12 

102700 

ViRS 

STC 

0 

H.P. DISK ADDRESS 

0362 

050 l 3 

102100 


5TF 

Q 

TURm-ON INTERRUPT 

0363 

to 3 0 1 4 

0 0 '2 4 w 0 


CLA 



0 36 4 

03015 

370665 


STA 

b U F L 0 

CLEAR FLAGS 

03 55 

030 1b 

182500 

viRC 

t 1 A 

te 

L.P. DISK ADDRfc SS 

63b6 

030 1 7 

002011 


SLA, 

KSS 

BUSY BIT*!? 

0 36 7 

08022 

034665 


IS/ 

BuFLS 

ERROR-SET F L * 0 

0368 

to 5 it'. 2 1 

O61210 


L U A 

5869 

77777 TO A 

0569 

03022 

002006 


I NA, 

52 A 


0 87 0 

03023 

027322 


J 8 P 

* - 1 

TIME-OUT LOOP 

C371 

0 3C24 

102501 


l I A 

01 

SW s REG. TO A 

W872 

03025 

£01323 


PAR, 

FAR 


0 5/3 

03025 

00 1 300 


RAM 


BIT 3 TO BIT 0 

0374 

03027 

000010 


SLA 


NO SUPPRESS? 

0375 

0 303C 

027033 


JNP 

WAIT 1 ♦ } 

BYPASS PRINTOUT 

0376 

03031 

1031W0 


CLF 

0 

TURN-OFF INTERRUPT 

0377 

0 3032 

115211 

HAITI 

J SB 

5370, I 

MISSING interrupt 

037 8 

05033 

103100 


CLF 

e 

TURN-OFF INTERRUPT 

0379 

05034 

102501 


L I A 

01 

S*. PEG. TO A 

0380 

03036 

031323 


RAP, 

RAP 


036 1 

0 30 56 

001300 


RAH 


BIT 3 TO BIT 0 

0382 

03037 

000010 


SLA 


NO SUPPRESS? 

0 0 83 

03040 

027070 


JMP 

S7 4 1 

SUPPRESS PRINT 

0384 

0 30 41 

102503 

WR1 1 

l I A 

0 

L.P. DISK ADDRESS 

0 385 

03042 

060010 


SLA 


BUSY 8 I T*3? 

f 3. 8 6 

0 5<4 4 3 

034665 


137 

EOF LG 

NO-FPROR 

0 587 

03044 

001323 


H AR, 

R aR 


0 388 

03045 

0013O0 


R A R 


STATUS BIT 3 TO BIT p 

0 3b 9 

03046 

0020 1 1 


SLA, 

KSS 

B I TP* 1 ? 

039 0 

05047 

02/552 


JMP 

5740 

NO 

0391 

030 50 

061245 


L DA 

£872 

A 8- A 1 3 MASK 

0 392 

0 3051 

010634 


A N D 

RCOHW 

RETAIN TRACK ADDR. 

0593 

0 3052 

001/27 


ALF, 

ALF 

MOVE 10 A3-A5 

6 39 4 

03083 

001200 


R AL 
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f 


0395 

03054 

070001 


SI A 

1 

A TO 8 

039q 

03055 

1 14113 


JSb 

CON V , I 

CONVERT OCTAL TC ASCII 

0397 

03 356 

025261 

SSE 5 

JMR 

S863 

0 3 98 

0 3 » d 7 

061230 


l DA 

CHA43 

CHAW. COUNT" 20 

0399 

0 3060 

065214 


L OR 

1 AD43 

ST. ADDR. OF PRiM R'JFFER 

0400 

0306 1 

1 1 4 102 


JSB 

1028, I 

OUTPUT P.RROR MESSAGE 

0 401 

030o2 

000665 

S7 4 0 

IDA 

6UFLU 


0 402 

03063 

002003 


SZA, 

KSS 

FLAG" 1 ? 

t'403 

0 30 6 4 

0270/0 


JMP 

S 7 4 1 


0 4 04 

0 31*65 

0607 1 M 


IDA 

C H A 2 8 

CHAR. C 0 U U T = 4 9 

04*35 

033 66 

064666 


t OB 

1 AD28 

ST. A DDR. OF PRINT BUFFER 

0406 

03 067 

114102 


JSb 

1028,1 

OUTPUT ERROR MESSAGE 

0407 

03070 

00240P 

S7M 

CLA 



0408 

03371 

070665 


STA 

BUFLG 


0«O9 

03 0 7 2 

060641 


li)A 

SCO MP 

SECTOR STRING COMPLETE FLAG 

04 10 

03073 

002003 


SZA, 

RSS 

FLAG»vs? 

0411 

03074 

026673 


JMP 

S 73 4 a 

NO-CON T I NUE SECTOk PROCESSING 

04 12 

03075 

002400 


CLA 


YES 

04 13 

03076 

070641 


STA 

SCOMp. 

CLEAR FLAG 

04 14 

03077 

065632 


IDA 

fcCOMP 

TRACK WRITE COMPLETE FLAG 

0 4 15 

03100 

002003 


SZA, 

RSS 

F L A G > 0 ? 

04 16 

03101 

026656 


JMP 

S734 

NO-GET NEW TRACK VALUE 

04 17 

03 102 

002420 


CLA 


YES 

04 15 

03103 

070632 


STA 

weopp 

CLEAR FLAG 

04 19 

03104 

000000 

set l 

f* OP 


JUMP RETURN 

0423 

0 3105 

102501 


l I A 

01 

Sw. REG. To A 

0.4 21 

03136 

001300 


H A R 


HIT 1 TO BIT 0 

0422 

03107 

0020 1 1 


SLA, 

FSS 

BIT 1=1? 

04 23 

03110 

027127 


JMP 

S743 


0 4 2 4 

03111 

06ei23 1 


L DA 

CHUFF 

COMPL. PATTERN .-OFFER 

0425 

03112 

0020 1 1 


SLA, 

RSS 


0426 

03113 

026654 


JMP 

S 7 34-2 

NO-WRITE SAME PATTERN BUFFER 

0427 

0 3 1 1 4 

06W375 


L DA 

S629 

YES 

0426 

03 U b 

070374 


STA 

$828 

-64 RESET 

0429 

03116 

060267 


L D A 

S823 

SECTOR BUFFER ADDR. 

04 30 

031 17 

070266 


STA 

$822 

RESET 

0431 

03120 

160260 

S 7 < 2 

L DA 

S822,l 

PICKUP WORD 

0 4 32 

03121 

003400 


C H A 


COMPL. WORD 

0 45 3 

03122 

170266 


STA 

S822, I 

RESTORE WORD 

0434 

03123 

034266 


1SZ 

S622 

iNCk. ADDR. 

0435 

03124 

034374 


ISZ 

S828 

64 WORDS FINISHED? 

0436 

03125 

027120 


JMP 

S742 

LOOP 

0437 

03126 

026654 


JMP 

S734-2 

WRITE COMPL. PATTERN 

04 38 

03127 

000000 

S743 

N QP 


BEGINNING of read processor 

0439 

03130 

0 605u 6 


IDA 

ARTHF 


044 0 

03131 

070507 


STA 

WARTB 

RESET ARRAY ADDR, 

044 1 

03132 

061205 


L DA 

S86 3 

-65 TO A 

0442 

03133 

071204 


STA 

S862 

-65 TO WORKING 

0 4 4 3 

03134 

102501 


L I A 

01 

SW. REG. TO A 

04 4 4 

03135 

002020 


S S A 


PIT 15*0? 

0445 

03136 

027142 


JMP 

S744 


0446 

031 37 

060732 


L D A 

CHA30 

NC. r.F CHAR. *13 

0 4 4 7 

03140 

064722 


L DB 

I A D34 

ST. ADDR. OF PRINT BUFFER 

0446 

03141 

1 14102 


JSB 

10 2B, 1 

OUTPUT MESSAGE 

0449 

03142 

060200 

S 7 4 4 

LBA 

S 8 45 

CHAR. C 0 U N T * 7 2 

0450 

03143 

070177 


STA 

$804 

LETUP INPUT CHAR. LENGTH 

0451 

03144 

015300 


JSB 

S900 

CALL INPUT SUBROUTINE 
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C452 

03145 

040226 


A DA 

S 8 1 6 

0 4 53 

03146 

00 2 6 2 0 


S SA 


k! 4 5 4 

03147 

027155 


JMP 

S745 

0 4 55 

03150 

066445 


L D A 

C H A 2 1 

0456 

03151 

06442 1 


L Dti 

I A U2 1 

0 4 57 

0315? 

1 1 4 102 


J SB 

1026# I 

0458 

03153 

102O01 


PLT 

01 

8459 

03154 

027 130 


JMP 

S 7 4 3 + 1 

0460 

0 3155 

01634 1 

S745 

jse 

S 9 0 1 

6461 

03106 

050476 


CPA 

S832 

6.4 62 

03157 

0271/3 


JMP 

S 7 4 6 

6463 

03160 

050477 


CPA 

S833 

k’ 464 

0316 1 

027173 


JMP 

S7 a 6 

0 4 65 

0316? 

050500 


CPA 

S 83 4 

6466 

63163 

U27 l 4? 


JMP 

S 74 4 

6467 

03)64 

050512 


CP A 

S836 

0468 

03165 

027202 


J.MP 

S/47 

0469 

03 166 

06M445 


L DA 

C H A 2 1 

0476 

03167 

064514 


L DH 

I A U 2 3 

04/1 

03173 

114102 


J SB 

102B, I 

0472 

03171 

102001 


oLT 

01 

0473 

03172 

027130 


JMP 

S/43+1 

0 474 

03173 

0641/6 

S7< 6 

LDH 

SEXT 

0475 

03174 

0000 1 1 


S LB 

# R SS 

0 4 7 6 

03175 

027155 


JMP 

S745 

04/7 

03 176 

O 6 0 5/6 


L DA 

ARTBF 

0 4 78 

63177 

05G507 


CPA 

W A R T B 

o 4 / y 

03280 

020042 


JMP 

T 4 

0 4ttw 

03201 

027313 


JMP 

£755-3 

0 0 01 

0320? 

0606/2 

S Til 

L DA 

S842 

0 30 2 

63203 

070603 


STA 

S843 

0803 

03204 

00240O 


cla 


0 3 0 4 

03205 

070540 


STA 

S 8 4 0 

0005 

032:00 

015341 


J SB 

S90 1 

0 6 00 

03?u; 

0504/6 


CPA 

5832 

0007 

03210 

027224 


JMP 

S 7 4 8 

0 0 6 8 

0321 1 

015363 


J SB 

S9B2 

0009 

03212 

027130 


JMP 

S743+1 

0010 

03213 

064114 


t DD 

mask? 

001 1 

03214 

010001 


AND 

1 

0012 

03215 

064540 


L DP 

S 8 4 0 

0613 

032 16 

005723 


ELF 

# RfeR 

06 1 4 

032 17 

03O0K 1 


I OR 

1 

0015 

03220 

070540 


STA 

£340 

0 3 l 0 

03221 

034603 


1SZ 

S843 

00 17 

03222 

827206 


JMP 

S747+4 

00 1 8 

03223 

027234 


JMP 

S 7 50 

0W 19 

03224 

0641/6 

S7/8 

t DP 

SEXT 

0 U 2 0 

03225 

006011 


SLB 

# R SS 

0 6 21 

0322o 

027286 


JMP 

S747+4 

0022 

03227 

061015 

S 7 4 9 

IDA 

CHA31 

0 02 3 

03230 

064777 


LDB 

I AD31 

0 024 

0 3231 

114102 


J SB 

1 8 2 B # I 

0 025 

03232 

102001 


PLT 

fe 1 

0026 

03233 

027 130 


JMP 

£743+1 

0 0 27 

03234 

015341 

S7E0 

J SB 

S9P; 1 

0 6 28 

03235 

850476 


CPA 

S632 


ADD -73 TO CHAR. COUNT 

POS .aERROR 

NO ERROR 

CHAR. COUNT “37 

ST. ADDR. OF PRINT BUFFER 

OUTPUT MESSAGE 

1UKN SW. 15 OFF IF ON' 

GET NEw TRACK PAoEM. FROM TTY 
GET A CHAR. 

IS CHAR. A H L A N K ? 

YES-CHECK EXIT FLAG 
IS CHAR. A COMMA? 

YES-CHECK EXIT FLAG 
IS CHAR. A SLASH? 

PROCESS CONTINUATION 
IS CHAR. A T ? 

yes-process parameter 

C H 4 R . COUNT 3 3 7 

ST? AUDR, UP PRINT BUFFER 

OUTPUT MESSAGE 

TURN SW. 15 OFF IF ON 

GET NEW TRACK p ARE m . FROM TTY 

EXIT FLAG TO B 

EXIT F L A G * J ? 

NO 

YES 

ANY ENTRIES? 
nO-RE-ENTER FROM tup 
YES-GET READ SECTOR PARAMETERS 
-3 TO A 

RESET CHaK. COUNTER 

clear char. HOLD 
6E r A CHAR. 

IS CHAP. A BLANK? 

CHECK EXIT FLAG 

CHECK LEGALITY-/. - 7 

GET N&* TRACK PAK'Ert. FROM TTY 

7 TO B 

RETAIN A D - A 2 
PARTIAL TO 8 
ROTATE LEFT 3 
I OR B TO A 
RESTORE RESULTS 
TRACK ADDR. FINISHED 
NC-UET ANOTHER CHARACTER 
CONTINUE PARAMETER 
EXIT FLAG TO B 

exit flag*!? 

NO-GET A CHAR , 

CHAR, COUNT »25 
~ST. ADPR. OF PRIM BUFFER 
OUTPUT ERROR MESSAGE 
TURN SW. 15 OFF IF ON 
GET Nfcw TRACK PARAMETER FROM TTY 
GET A CHAR, 
is char, a blank? 
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0029 

03236 

027242 


JMP 

S 7 5 t 

0030 

03237 

050501 


CPA 

Se35 

0031 

03240 

027246 


JMP 

S 752 

0032 

03241 

027227 


JMP 

S749 

By 3 3 

03242 

064176 

S7 5 1 

LDP 

sext 

0034 

03243 

004010 


SL8 


0035 

03244 

027227 


JMP 

5749 

0035 

03245 

027234 


JMP 

S 7 5 0 

8037 

03246 

06U6fe'2 

S75 2 

L D A 

S 8 4 2 

0038 

03*47 

0 7 0 6 U 3 


STA 

S 8 4 3 

0039 

B325P 

002400 


CLA 


004 0 

03251 

070541 


STA 

S 8 4 1 

0041 

0325? 

015341 


JSB 

S901 

0042 ' 

03253 

05O476 


CPA 

583? 

0O43 

03264 

027270 


JMP 

S 75 3 

0844 

03*55 

015363 


J S B 

S 9 02 

0045 

03256 

027130 


JMP 

S743+1 

004 6 

W3257 

064114 


L DB 

E A S K 2 

0 0 4 7 

03260 

01 000 1 


AND 

l 

004 8 

03281 

Bb4541 


l DP 

S 8 4 1 

0 U 4 9 

03262 

005723 


ELF , 

RBR 

0050 

03263 

03B/I01 


I OR 

1 

00 51 

B 5264 

07054 i 


STA 

S 8 4 I 

0052 

0326b 

03 4 6 i6 3 


ISZ 

S843 

0O63 

y326fc 

02725? 


JMP 

S752+4 

0054 

05*67 

0*727 4 


JMP 

5754 

Oubb 

0 3 * 7 fc 

06417 6 

575 3 

t DB 

SEXT 

0 056 

032/1 

0060 1 1 


SLB, 

RSS 

80 5 7 

03272 

027 2.52 


JMP 

S752+4 

0858 

03273 

027227 


JMP 

S 7 4 9 

0059 

03274 

060541 

S 7? 4 

IDA 

S84 1 

0060 

03275 

003004 


cma , 

I NA 

0W6l 

032/6 

070541 


STA 

S 84 1 

0062 

03277 

060540 


I DA 

S840 

08 63 

03300 

170507 


STA 

!» A R T B t 

0004 

0330 1 

0345B7 


ISZ 

w A R T B 

0065 

0 33 W 2 

002304 


1 N A 


00 66 

03303 

036204 


I SZ 

S662 

fc 06 7 

03304 

027306 


JMP 

* +2 

0 8 6 8 

03305 

027316 


JMP 

S755 

00 6 9 

03306 

034541 


ISZ 

S 8 4 1 

0070 

033B7 

0273B0 


J HP 

$784+4 

0 0 7 1 

03310 

364 i? 0 


l DB 

SEXT 

08 7 2 

0331 I 

006O1 1 


SLB, 

RSS 

007 3 

03312 

H27155 


JMP 

S745 

007 4 

03313 

060507 


l DA 

W ARTB 

0875 

03314 

071016 


STA 

L ARTts 

0876 

03315 

027323 


JMP 

S 7 56 

0877 

03316 

061037 

57? 5 

l DA 

C H A 3 2 

0078 

03317 

066320 


L DB 

1 AD32 

00 7 9 

0332B 

114102 


J SB 

102B, I 

0 0 8 0 

03321 

102001 


PLT 

01 

0081 

03322 

027130 


JMP 

S743+1 

0062 

03323 

060510 

S7?6 

L PA 

ARSBf 

0083 

03324 

07051 1 


STA 

W AR Sh 

0084 

033*5 

061207 


LPa 

5865 

0085 

03326 

07 i 206 


STA 

S 86 4 


YES-CHECK EXIT FLAG 
IS CHAR. A - ? 

YES 

NO-PR 1 N T OUT ERROR MESSAGE 
EXIT FLAG TO B 
EXIT FLAG-0? 

NO-ERROR PRINTCUI 
GET A CHAR. 

-3 TO A 

RESET CHAR. COUNTER 

CLEAR CHAR. HOLD 
GET A CHAR. 

I S CHAR . A BLANK? 

CHECK EXIT FLAG 

CHECK LEC-ALITY-^-7 

GET NEW TRACK PAKEM. FROM TTY 

7 TO B 

RETAIN A0-A2 
PARTIAL TO 0 
ROTATE LEFT 3 

1 OR M TO A 
RESTORE RESIJI. TS 

(RACK SEG. CHAR, FINISHED? 

NO-GfT ANOTHER CHARACTER 
CONTINUE PARAMETER 
EXIT FLAG TO B 
EXIT FLAG-i? 

NO-GET ANOTHER Chi - , 

OUTPUT ERROR MESSAGE 
SEU. « 

2 , S C 0 m PL. 

BLOCK SPG. FOR TRACKS 
ST, TRACK ADPR. OF BLOCK 
STORE TRACK ADDRtSS 
INCR. ARRAY ADDRESS 
INCH. TRACK ADDRESS 
64 ADPR. ENTERED 
NO 
YES 

INCR. » OF TRACnS 
NOT FINISHED 
EXIT FLAG TO 8 
EXIT FLAG-1? 

GET ANOTHER REAP TRACK PARAMETER 

LAST TRACK REAP BUFFER ADDR.+l 

LAST TRACK REAL' BUFFER ADCR.+l 

GET READ SECTOR PARAMETERS 

CHAR. COUNT -26 

ST. AUPR. OF PRINT BUFFER 

ERROR PRINTOUT 

TURN S> . t 5 OFF IF ON 

GET NEw TRACK PaREH. FROM TTY 

RESET ARRAY ADtRESS 
-85 TO A 

RESET WORKING COUNTER 
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VI OSS 

03327 

1R250 1 


L I A 

01 

0087 

03330 

002020 


SSA 


£683 

05331 

0 2 7 3 3 £ 


J HP 

S757 

C 0 3 9 

05332 

061050 


L DA 

CHA33 

U to 9 U 

33333 

065040 


IDB 

1 AD33 

£ v; 9 1 

03334 

114102 


J SB 

102B, I 

U 092 

055 35 

WO0200 

S7E7 

EDA 

S805 

009 3 

05 3 56 

070177 


STA 

S804 

0 xi 9 4 

05537 

015300 


J SB 

S 9 30 

609 5 

0334-0 

040226 


ADA 

S 8 1 6 

0 09 0 

033 5 v 

002320 


SSA 


to*>97 

1 3 3 2 

027353 


JMP 

S758 

OH 9 8 

05543 

060445 


l DA 

C H A 2 1 

£ -A 9 9 

03344 

064421 


L DH 

T A D 2 1 

01.00 

03345 

11410? 


J SB 

1028, 1 

01 ui 

03346 

102001 


RLT 

£ 1 

0 I 02 

03547 

027323 


JNP 

S 7 56 

k.5 1 y 3 

0 33s V' 

0 1534 l 

S7£6 

JSb 

S9>M 

H 1 t> 4 

0 3551 

0504/6 


CPA 

S 83 2 

CM Ob 

0355? 

027566 


J MP 

S 7 5 9 

0 5 0 6 

03353 

050477 


CPA 

S833 

0107 

0 5554 

0 2 7 5 6 6 


JMP 

S 7 5 9 

010 8 

05355 

050500 


CPA 

S 8 3 4 

£ i %9 

03356 

V327335 


JMP 

S 7 5 7 

£110 

03357 

to b W 5 1 3 


CPA 

S 83 7 

£111 

03360 

027372 


JMP 

S 7fc to 

£ 5 1 2 

033b J 

0 6 to 4 4 5 


1. DA 

C H A 2 1 

to i 1 3 

0336? 

064514 


l DB 

1 AD25 

0 114 

03363 

114 it ? 


JSB 

102b, I 

tolls 

0 336 4 

102001 


FLT 

to 1 

to 11 0 

0336 5 

02/323 


JMP 

S756 

V. 1 1 7 

03366 

064176 

S7S9 

LDH 

SEXT 

to 1 1 8 

03367 

00601 1 


SLB, 

hSS 

0119 

0 5 3 7 to 

027550 


JMP 

S756 

0 1 2 to 

03371 

027500 


JMP 

S768-3 

012 1 

0 337 2 

060602 

S 7 1 to 

L 0 A 

S842 

to i. 2 o 

U 3 3 7 3 

0706U3 


STA 

S843 

tol23 

03374 

002400 


CLA 


0 1 24 

0 5375 

070540 


STA 

5 8 4 0 

(i 12b 

03376 

015341 


JSH 

S9 0 1 

U 1 26 

05377 

0 5 to 4 76 


CPA 

S 8 3 2 

to 1 2 7 

03400 

027414 


JMP 

S 7 6 l 

to, I 2 8 

034y l 

015363 


JSb 

S9to, 2 

0129 

03402 

027323 


JMP 

S 7 5 6 

0130 

03403 

0 o 4 1 14 


l DB 

M ASK2 

£131 

03404 

010001 


AND 

1 

£ 132 

03405 

064540 


t DB 

S 6 4 0 

0 1 33 

0 3 4 0 6 

005723 


SLF, 

RBR 

to 134 

03407 

03050 1 


I OR 

1 

U135 

054 10 

070540 


STA 

S 8 4 0 

01 36 

034 1 1 

034603 


1 S l 

S 843 

to 1 37 

034 1? 

027376 


JMP 

5760+4 

0 138 

03413 

027424 


JMP 

S763 

£139 

03414 

064176 

S7t 1 

L DB 

SEXT 

to 14 0 

03415 

00601 1 


SLB, 

KSS 

tolAl 

034 16 

W27376 


JMP 

S760+4 

0 142 

05417 

061015 

S7E 2 

1. DA 

C h A 3 1 


SW. REG, TO A 

BIT 15-0? 

NO-PR INPUT 

NO. OF CHAR. = 14 

ST. ADDR. OF PRINT BUFFER 

OUTPUT MESSAGE 

CHAR. C 0 U N T * 7 2 

SETUP INPUI CHAR. LENGTH 

CALC INPUT SUBROUTINE 

ADD -73 TO CHAR. COUNT 

PCS , -ERROR 

NO ERROR . 

CHAR. COUNT-37 

ST. A DDR . OF PRINT BUFFER 

OUTPUT ERROR MESSAGE 

TURN sw.19 OFF If On 

GET NEW SECT. PARE*. FROM TTY 

GET A CHAR, 

IS CHAR, A BLANK? 

YES-CHECK EXIT FLAG 
IS CHAR, A COMMA? 

YES-CHECK EXIT FLAG 
IS CHAR. A SI.ASm? 

PROCESS CONTINUATION 
IS CHAR. A S? 

yes-prccess parameter 

CHAR. CQU NT-37 

ST. aDDR. OF PRINT BUFFER 

OUTPUT ERROR MESSAGE 

TURN Sw. IS OFF IF L»n 

GET NEW SECT, Pa*EM. FROM TTY 

EXIT FLAG TO B 

EXIT FlAG»1? 

no ; 

YES-JUMP TO RE A t OPERATION 

- 3 T 0 A 

RESET CHAR. COUNTER 

CLEAR CHAR. HOLD 
GET A CHAR. 

IS CHAP. A BLANK? 

CHECK EXIT FLAG 

CHECK LEGALITY-0-7 

GET NEW SECT. PAREtt, FROM TTY 

7 TO 8 

RETAIN A to; - A 2 

PARTIAL TO 8 

ROTATE LEFT 3 

ICR b TO A 

RESTORE RESULTS 

SECTOR ADDR. F INISHEP? 

NO-GET ANOTHER CHARACTER 
CONTINUE PARAMETER 
EX I T FLAG TO 8 
EXIT FLAG-1 
NO-GET A CHAR. 

CHAR. COUNT-25 
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0143 

03420 

064777 


LDB 

1AD31 

ST. ADDR. OF PRINT BUFFER 

0144 

03421 

114102 


JSB 

1029 # I 

OUTPUT ERROR MESSAGE 

0 1 43 

0342? 

102RO1 


PL T 

0 1 

TURN SW.15 OFF IF UN 

0140 

03423 

027323 


JHP 

S756 

G£T NEW SECTOR PARAMETER FROM TT 

014? 

0 3424 

015341 

S7e 3 

JS8 

S901 

GET A CHAR. 

0148 

03425 

0504/6 


CPA 

S832 

IS CHAR. A BLANK? 

fc 1 49 

03426 

027432 


JHP 

S764 

yes-check exit flag 

O 1 5 0 

03427 

05M501 


CPA 

S 8 3 5 

IS CHAP. A -? 

0151 

0343m 

027436 


JMP 

S 7 6 5 

YES 

0 152 

03431 

0274 1 7 


JHP 

S 7 6 2 

NO-PRINTOUT ERROR MESSAGE 

0 153 

03432 

064176 

S7C 4 

L DB 

sea r 

EXIT FLAG TO 6 

0154 

03433 

004m 10 


S LB 


EXIT FLAG-0? 

t» 1 55 

03434 

0 2 7 4 1/ 


JMP 

S7 62 

mo-errcp printout 

0156 

03435 

027424 


JHP 

S 7 63 

GET A CHAR. 

0 15? 

03436 

O60602 

s?e5 

L DA 

S fi 4 2 

-3 TO A 

0 15 6 

03437 

070603 


ST A 

S 8 4 3 

RESET CHAR . COUNTER 

0 159 

034 40 

0024M0 


CLA 



0160 

034 4 1 

07054 1 


STA 

S 84 1 

CLEAR CHAR, HOLD 

0 161 

0 34 4 2 

015341 


JSH 

S 90 1 

GET A CHAR. 

0 162 

03443 

050476 


CPA 

£832 

IS CHAR. A BLANK? 

0 1 o3 

03444 

02/460 


JMP 

S 7 6 6 

CHECK EXIT FLAG 

0 164 

03445 

015363 


J SB 

S 9 v. 2 

CHECK LEGALITY- 0~7 

0 165 

0 34 46 

027323 


JHP 

£ 7 56 

GET Ntw SECT. PARE*. FROM Tfy 

0 166 

03447 

064 I 14 


L DB 

f A S K 2 

7 H 1 b 

016? 

0 3 4 50 

010001 


A N V 

1 

RETAIN A 0 — A 2 

0168 

0 3 4 01 

064541 


t 08 

S 8 4 1 

PARTIAL TU H 

0 1 t>9 

03452 

005723 


BLF, 

R DR 

ROTATE LEFT 3 

0 1 ? t} 

03 453 

030001 


1 OP 

1 

IOR 6 TO A 

0171 

03454 

07054 1 


£ T A 

S 8 4 1 

restore results 

0 172 

0 34 55 

0346M3 


I S L 

S 8 4 3 

SECTOR SEQ. CHAR. FTnIShEE? 

0 1/3 

0 34 5 5 

027442 


JHP 

S765+4 

NO-GET ANOTHER CHARACTER 

0 174 

03457 

027464 


JHP 

S 7 6 7 

CONTINUE PARAMETER 

0 175 

0 3 4 60 

064176 

5 7 6 6 

L DP 

5EXT 

EXIT FLAG TO 8 

0 17 6 

03461 

006311 


SL8, 

RSS 

EXIT F L A Ga 1 ? 

0177 

03462 

027442 


JMP 

S 7 ft 5 + 4 

NO-GET ANOTHER CHAR. 

0 178 

03463 

027417 


JMP 

S762 

OUTPUT ERROR MESSAGE 

0179 

03464 

060540 

S7t7 

l DA 

S640 

STARTING SECTOR ADDRESS TG A 

0 1 80 

034 6b 

170511 


STA 

KARSB, I 

PUT IN READ SECTOR ARRAY 

0161 

03466 

03451 1 


I S 2 

W A R SB 

incr. array ADDRESS 

0 1 62 

03467 

06054 1 


L DA 

S 8 4 1 

NO. OF CONSECUTIVE SEC10RS 

0 183 

03470 

170511 


STA 

WARSS, l 

PUT IN READ SECTOR ARRAY 

0184 

0 3471 

03451 l 


IS? 

k A R SB 

Il'SpR. ARRAY ADDRESS 

0165 

03472 

0352O6 


I S l 

S664 

85 ENTRIES IN SECTOR READ BUFF.? 

0186 

0 3 4 7 3 

027475 


JHP 

* +2 

NO 

0187 

0 34 7 4 

027503 


JMP 

S766 

YES 

0188 

03475 

004176 


LDB 

St X T 

EXIT FLAG TO & 

0 169 

03476 

006011 


S LP r 

RSS 

EXIT FL A G a 1 ? 

0190 

03477 

027550 


JMP 

S758 

GET ANOTHER SECTOR RE 4 D PAREM. 

0191 

03500 

0605 1 1 


L DA 

k Ah SB 


0192 

03501 

0/1017 


STA 

L A W SB 

LAST BUFFER ADDR.+l 

0193 

03502 

027512 


JMP 

READ 

PERFORM READ OPERATION 

0194 

03503 

06107 1 

s?e« 

l DA 

CHA34 

NO, OF CHAW. “29 

0195 

03504 

065051 


LDP 

I AD34 

ST. ADDR. OF PRINT BUFFER 

0196 

03505 

1 14102 


JSb 

1028, I 

OUTPUT ERROR MESSAGE 

0197 

03506 

102001 


PLT 

0 1 

TURN SW.15 OFF IF UN 

0198 

03507 

027323 


JMP 

S 75 6 

GET NEW SECTOR PAREH. FROM TTY 

0199 

0 3510 

027572 

5 66 5 

JMP 

S769-2 

bYPASS READ PARAMETERS 



f AGE 


0200 
02«}1 
0202 
8 203 
0 204 
0205 
02u6 
02 07 

02*j8 

0209 

0210 
0211 
0212 

0213 

0214 

0215 
021b 
0217 
021 a 

0219 

0220 
0221 
0222 
0223 
0 224 

0225 

0226 

0227 

0228 

0229 

0230 
0 231 
0 232 

0233 

0234 
0 235 

0236 

0237 

0238 

0239 

0 2 4k) 

0241 
024 2 

0243 

0244 

0245 
024b 

0247 

0248 

0249 
025« 

0251 

0252 

0253 

0254 

0255 

0256 
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03611 

125260 

S6fc2 

JMP 

READI r I 

03612 

00000P 

RE/ D 

NOP 


03613 

064123 


ldb 

DM A UR 

03514 

060107 


L DA 

f ASK 1 

03615 

013716 


AND 

RD2 

03316 

030801 


JOR 

1 

03517 

073716 


STA 

R D? 

03320 

060107 


L D A 

mask i 

03521 

0 13725 


AND 

RD7 

03522 

030001 


I OR 

1 

04623 

073725 


STA 

RD7 

03324 

034627 


CPB 

KASK6 

03325 

02/530 


JMP 

* +3 

03626 

06463 1 


LDB 

M A S 7 A 

03627 

027531 


JMP 

* +2 

03530 

064630 


LDB 

MAS6A 

03331 

060187 


L D A 

K ASK 1 

03632 

813717 


AM) 

R 03 

03 533 

038001 


1 OR 

1 

03334 

073717 


STA 

RD3 

03635 

060107 


IDA 

MASK 1 

03636 

01372 1 


AND 

K 04 

0 3 537 

0300k) l 


I OR 

1 

03640 

073721 


S IA 

R 0 4 

fct 6 0 41 

073724 


STA 

wr«6 

03642 

868107 


IDA 

MASK 1 

03643 

813722 


AND 

RD5 

03544 

03000J. 


I OR 

1 

0364 b 

073722 


STA 

R 0 5 

0 33 46 

864122 


LD8 

. t ADR 1 

03547 

060)07 


IDA 

MASK l 

03550 

013726 


AND 

R 08 

0 3 5 61 

030001 


I OR 

1 

03552 

073726 


STA 

KPS 

03553 

086004 


INB 


03554 

0601W7 


L DA 

MASK1 

03555 

013714 


AND 

RDt 

03556 

830081 


1 OR 

1 

03557 

073714 


STA 

KD1 

0 36 6 0 

060167 


L DA 

MASK t 

03361 

013732 


AND 

R09 

03562 

03000 1 


1 OR 

1 

03363 

073732 


STA 

KD9 

03304 

073755 


STA 

ROU 

03 365 

07370 1 


STA 

KOI A 

03366 

002400 


CL A 


03367 

871072 


STA 

KCOMP 

0337 0 

870641 


STA 

SCCMP 

0357 1 

070665 


STA 

BUFL6 

03572 

060506 


IDA 

ARTBF 

03573 

070507 


STA 

R AR T B 

03374 

060510 

S7C 9 

L DA 

ARS8F 

03575 

870511 


STA 

V. ARSb 

03576 

164507 


LDB 

RARTB, I 

03577 

034587 


ISZ 

*artb 

03600 

060507 


IDA 

WARTcs 

03601 

051016 


CPA 

LARTB 


RETURN JUMP 
iNi). RETURN 
DMA OCTAL ADDR. TO 8 
177700 TO A 
RETAIN A 6 "A 1 5 
I OR DMA ADDRESS 
RESTORE RD2 
177700 TO A 
RETAIN A6-A15 
ICR DMA ADDRESS 
RESTORE R 07 
DMA CHAN. -5 
YES 

N Q A P 0 R . » 3 

ADDR. *2 

177700 TO A 

RETAIN A6-A15 

I OR MAR ADDRESS 

RESTORE RD3 

177700 TO 6 

RETAIN A6-A15 

I OR MAC ADDRtLC 

RESTORE R 04 

RESTORE RDb 

177M0 TO A 

Rt T A IN A 6 - A 1 6 

I OR wCR ADDRESS 

RESTORE RDo 

H.P. DISK ADDR. TO 8 

177 701* 70 A 

RETAIN A6-A15 

I OR DISK ADDRESS 

RESTORE R 06 

L.P.DISK ADDR. TO A 

177700 TO A 

RETAIN A6-A15 

I OR DISK ADDRESS 

RESTORE RD1 

17770H TO A 

RET A ! N A6-A 15 

I OR DISK ADDRESS 

RESTORE R 09 

RESTORE ROU 

RESTORE RU1A 

CLEAR FLAG 
CLEAR FLAG 
CLEAR FLAG 

RESET READ TRACK BUFFER ADDR. 

RESET READ SECTOR BUFFER ADDR. 
PICK PRACK ADDR. 

INCR. ARRAY ADDRESS 
CURRENT ARRAY ADDR. TO A 
LAST BUFFER ADCR.+l? 
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0257 

03u02 

035372 


ISZ 

RCOMP 

02bd 

03bU3 

075076 


STB 

C TRCK 

C2bV 

0360 4 

060633 


L D A 

S 8 4 4 

02 60, 

03605 

01 U73 


AND 

RCUhK 

i> 2 6 1 

03636 

005727 


FLF, 

&LF ■ 

L'2 62 

03607 

005300 


R&R 


0263 

03610 

030001 


I OR 

1 

0264 

03611 

071073 


STA 

RCQm.R 

026 5 

03612 

060210 

S7e 9 A 

L DA 

S 8 1 4 

0266 

03613 

006400 


C LB 


0 267 

03014 

174000 


STB 

0,1 

0268 

03015 

002004 


IN A 


0260 

0361b 

050106 


CPA 

106B 

0270 

to J6 1 7 

027621 


JMP 

* +2 

0271 

03620 

02/614 


JMH 

S 7 6 9 A + 2 

0272 

0362 1 

16451 1 


l MB 

KARSH, I 

0273 

03b2 2 

075077 


STB 

CSEC 1 

0274 

03523 

03451 l 


IS 7. 

h A R S b 

027 5 

03624 

060640 


(. DA 

S&45 

02/6 

03625 

011073 


A N D 

RCOMK 

0277 

03626 

030C01 


TOR 

1 

0276 

03627 

071373 


S T a 

R C t M K 

0279 

0 3630 

16451 1 


L Dh 

* ARSrt , I 

0 2 3 0 

03631 

034511 


ISZ 

K A RSd 

0261 

0 3 o 3 2 

060511 


IDA 

K A R s a 

0282 

fe)3u33 

051017 


CPA 

L A 8 SB 

0 2 S3 

B 3 o 3 4 

034641 


ISZ 

SCOMP 

02 8 4 

03635 

0-06003 


£78/ 

F.SS 

02 8 6 

0 3 63 6 

027417 


JMP 

S7b2 

0 2 86 

0 3637 

0 7 4,i 0 o 


s tb 

? 

0 26 7 

030 40 

031727 


ALF , 

ALF 

0288 

03641 

001323 


R AR , 

RAP 

0289 

03642 

040105 


ADA 

1 3 5 & 

0 2 90 

03643 

003004 


CM A , 

I N A 

0291 

0 3 o 4 4 

040106 


ADA 

1 06B 

0292 

03645 

002320 


S 3 A 


0293 

03o46 

027 6 6 5 

S770 

JMP 

S 7 7 l 

0294 

03647 

074000 


STB 

( 

U29b 

0 3 o 5 0 

001727 


ALF, 

ALF 

0296 

03651 

001323 


FAR, 

R AR 

029 7 

03652 

003004 


CHA , 

1 N A 

0 293 

03653 

070637 


STA 

K D C N T 

029y 

03654 

002404 


CLA, 

I N A 

0300 

03655 

001300 


FAR 


0301 

03656 

O3O105 


1 OR 

1058 

030 2 

03657 

371104 


STA 

RDIR 

030 3 

03660 

007004 


CMS, 

I N 0 

03O4 

03b6 1 

075102 


STB 

SECTC 

0 30 6 

03o62 

360105 


L DA 

1 0f?& 

0 306 

0 3 b 6 3 

070643 


STA 

S 8 4 8 

0307 

03 ob 4 

027672 


JMP 

S 7 7 2 

0 3O 8 

03665 

060662 

S 7 7 1 

t. DA 

CHA 27 

0309 

03666 

064644 


L DB 

l A027 

0318 

03667 

114102 


J SB 

1028, I 

031 1 

0 3 O 7 2 

102001 


H L 1 

01 

0312 

0367l 

125174 


JMP 

1743,1 

6313 

03b72 

060375 

S772 

L DA 

S 8 2 9 


YES-SET READ COUPLE Ifc FLAG 

TRACK MASK-140377 
RETAIN A15-A14, AV.-A7 
A0-A5 TO A8-A13 

^TRACK ADDR. TO A 

'restore RCOMR 

ST, ADDR. -BUFFER 


LAST ADDR. OF BUFFER AREA 
F IN I SHED 
NOT FINISHED 
PICKUP STARTING SECTOR 

INCH. ARRAY ADDRESS 
SECTOR MASK- 1 776*'/ 

RETAIN A 7- A 1 5 

SECTOR ADDR. TC A 

RESTORE RCOFR-TR./SECI . COMPLETE 

PICKUP a OF COivSfcC. SECTORS 

INCF. ARRAY ADDRESS 

CURRENT ARRAY ADDR. TO A 

LAST BUFFER ADDR.+l 

YES-SET SECTOR STRING LOrlP. FLAG 

SECTOR VALUE >P? 

NO-ERROR PRINTOUT 
H TO A 

MULTIPLY BY 64 

ADD 5 S T AVAIL. ICON, VALUE 

2 VS C 0 M P L . 

SUBTR. LOWER FROM UPPER 

ERRUR-BUFF, LENGTH EXCEEDS m£M. 
GOOD MEM. FIT 

MULTIPLY BY 64 

2 1 S COMPL. OF TOTAL WORD COUnT 
wORIj COUNT. READY 

BIT 15*1 

1 OR START ADDR. OF AVAIL. MEM. 
OUTPUT AND ST. AD OR. READY 

2 * S COMPL . » UF SECTORS 
RETAIN U UF SECTORS 

ST. OF AVAILABLE MEM. 

CONTINUE 

CHAR. C 0 U N T » 3 2 

ST. ADDR. OF PRINT BUFFER 

OUTPUT ERROR MESSAGE 

TURN Sw. |5 OFF IF ON 

GET NEW REaD PARAMETERS 

17 770G TO A 
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B3I4 

0,5673 

010635 


AND 

ROMAN 

0 315 

U56 7 4 

030122 


1 OR 

l ADR1 

0 316 

V) 3 6 7 o 

070635 


FT A 

R U B A r. 

0 3 17 

l? 3 o 7 6 

0610/4 


L DA 

S852 

U3l« 

03677 

070U06 


STA 

fc 

0 519 

03 7 00 

070007 


5 T A 

7 

0 52 0 

0 5 7 U 1 

1025OO 

RE 1 A 

l I A 

0 

0 321 

05/O2 

001727 


ALF 

, ALF 

0322 

0 3 7 0 3 

002020 


SSA 


05 23 

03704 

027712 


jnP 

S 7 7 3 

0324 

03705 

06O721 


IDA 

CHA29 

0325 

057 06 

06a/ 1 1 


L DB 

I A D 29 

0 326 

057O7 

1 141102 


J SB 

1420, I 

0327 

05710 

102001 


PLT 

e i 

0 328 

037 1 1 

027701 


JMP 

RD1 A 

0329 

03/12 

103100 

S7 7 3 

CLF 

e 

0 330 

057 13 

0610/3 


L D A 

RCQMR 

0 331 

03714 

102600 

KL' 1 

C T A 

0 

0332 

037 15 

060635 


IDA 

V> D H A -i 

0333 

03716 

102600 

R I'J 

C TA 

L 

U334 

03717 

106700 

R D3 

etc 

fc 

033b 

03 7 20 

061104 


LDA 

RC I R 

0 336 

05/21 

l026fc'0 

k C 4 

C T A 

e 

0 33 7 

0372 2 

102700 

RDt 

ETC 

0 

0338 

03723 

0 6 06 3 7 


L DA 

* l c N T 

0539 

05 7 24 

10260U 

RDt 

CTa 

fc 

054O 

03725 

103700 

K C 7 

STC 

fc ,c 

034 l 

05726 

102700 

WEE 

SIC 

fc 

0342 

03727 

102100 


STF 

0 

0 5 4 3 

03/30 

002400 


CL A 


0544 

03731 

070665 


STA 

BuFLG 

034b 

03732 

102500 

KDS 

l I A 

fc 

034 6 

05/53 

0020 1 1 


SLA 

, k SS 

0 34 7 

03734 

034665 


ISZ 

BUFLG 

0 3 4 8 

03735 

061210 


LDA 

S 869 

0549 

03736 

002006 


1 N A 

, S Z A 

0 350 

03737 

027736 


J HP 

*- 1 

C 3b 1 

03740 

102501 


L I A 

01 

0352 

03741 

001323 


PAR 

, R A R 

Bob 3 

03742 

001300 


FAR 


0354 

03743 

000010 


SLA 


0355 

057 44 

027747 


JMP 

w A I T 2 + 1 

0366 

05 7 45 

10310O 


CLF 

fc 

03b7 

0 3746 

115212 

* A 1 T 2 

J SB 

S 8 7 1 , I 

0358 

03747 

103100 


CLF 

fc 

0359 

03750 

10250 1 


l l A 

C 1 

0 360 

03751 

001323 


RAR 

,RAR 

0361 

03752 

001300 


FAR 


U3b2 

0 3 7 63 

000010 


SLA 


C363 

03754 

125256 


J HP 

1 775,1 

0 36 4 

03/55 

102500 

RP1 1 

l I A 

fc 

0565 

03756 

000010 


SLA 


0 366 

03757 

834665 


ISZ 

BUFLG 

0367 

037o0 

001727 


ALF 

, ALF 

0368 

03761 

00 i /oe 


ALF 


0 369 

03762 

071131 


STA 

5.8 5 7 

0370 

05763 

0020 1 1 


SLA 

, R SS 


RETAIN A6-A15 
I OR H.P. DISK A DDR , 
RESTORE. WDMA* 

RETURN JUMP 
INT. LOCN. 

1 M T . LOCN. 

INPUT STATUS 
HIT 7 TO BIT 15 
j»n i5*0? 

DISC NOT READY 

NO. OF CHAR. *14 

ST. ADDR. OF PRIM buffer 

OUTPUT MESSAGE 

HAKE DISC READY 

RETURN 

TURN-OFF INTERRUPT SYSTEM 
TRACK/SECTOR address 
L s P. DISK ADDRESS 
h.P. DISK A DDR. A n D CLC 
DMA CHAN. #6/7 
H A R ADDR. #2/3 
STARTING ADDRESS-HIT 15*1 
BAR ADDR. #2/3 
WCR AUDR. #2/3 

2 ' a C 0 H P L .-WORD COUNT 
WCR ADDR. #273 

DMA CHAN. #6/7 
H.P. DISK ADDRESS 
TURN-ON INTERRUPT 

CLEAk FLAG 
INPUT STATUS 
BUSY b I T* 1 ? 

ERROR-SET FLAG 
77777 TO A 

time-out loop 

SR, REG » TO A 

BIT 3 TO BIT 0 
NC SUPPRESS? 

BYPASS PRINTOUT 
TURN-OFF INTERRUPT 
HISSING INTERRUPT 
TURN-OFF INTERRUPT 
S'*. PEG. TO A 

bIT 3 TO 8 1 T 0 
NO SUPPRESS? 

SUPPRESS PRIM 
INPUT STATUS 
BUSY 8 1 T * 0 ? 

NO-ERROR 
BIT 8 TO HIT 0 
BIT A TO BIT 0 
SAVE 

DECODE 6 I T * 1 ? 
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0371 

037 64 

027770 


JMP 

S 7 7 3 A 

0372 

03765 

061115 


L DA 

C H A 35 

0373 

0 3 7 6 6 

065106 


LD8 

I AD35 

0374 

03767 

114102 


JSB 

102B, I 

0375 

03770 

001131 

$ 7 7 3 A 

L DA 

$ 8 5 7 

0376 

0377 1 

00 1222 


HAL 

, H A L 

0 37 7 

03772 

002021 


SSA 

/RSS 

0378 

03773 

027777 


JMP 

S773B 

0379 

03774 

0&) 30 


1 DA 

C H A 3 6 

0800 

03775 

090 1 1 6 


L DR 

1 AD36 

0361 

03776 

114102 


JSB 

1 0 2 B , I 

0382 

63777 

061131 

S773B 

1. DA 

S3M7 

0383 

O4OO0 

002321 


SSA 

, HSS 

038 4 

04001 

125267 


JHP 

I773C, I 

0385 

04 302 

0650 7 6 


L DR 

C TRCk 

0366 

04 US 3 

114113 


JSb 

CUN V , I 

0 367 

0 4 VUJ 4 

060200 


l DA 

S 8 1 2 

0386 

0 4 0 0 5 

010111 


AND 

CARRY+1 

0369 

04K U 6 

w312b3 


I OR 

S88U 

0390 

0 4 U ,i 7 

071742 


ST A 

FLS44+8 

0 391 

0 4 v) 1 U 

860 l 12 


l DA 

CARkY+2 

0392 

04U11 

071243 


ST A 

FES44+9 

0 39 3 

04 0 12 

061244 


IDA 

CHA44 

0 394 

0 40 1 3 

005231 


t Du 

I A D 4 4 

039b 

0 4 0 1 4 

114182 


JSb 

1228/ I 

6396 

04U15 

060665 

S7/3C 

L DA 

b UFL u 

0397 

0 4 3 16 

002003 


S7,A 

/RSS 

0398 

0 4U17 

026W23 


JMP 

S775 

0399 

0 40 20 

0687 l 0 

S774 

L DA 

CHA2b 

FUW w 

04021 

004666 


1 DR 

I A D28 

O’ 4 0 1 

0 4 3 22 

114102 


JSB 

102B, I 

0 4 3 2 

04023 

0024O0 

S 7 7 5 

CL A 


0 « 0 3 

0 4024 

07 06b 5 


STA 

BUFLG 

0 4 0 4 

0 4 0 2 b 

060105 


IDA 

1 0SB 

0405 

04026 

071 10G 


STA 

C MEM 

0 466 

04027 

000000 

ses 3 

H OP 


0 40 7 

04 0 30 

002440 

S776 

CLA 


0408 

0 4 0 3 1 

071101 


STA 

SEWD 

0409 

04O32 

000375 


L D A 

S829 

04 10 

04033 

070374 


STA 

S 8 2 8 

C 4 1 1 

04034 

060267 


L D A 

S823 

04 12 

04U35 

070266 


STA 

S822 

64 13 

04036 

160266 

S777 

l DA 

S 822 / I 

04 14 

04037 

151100 


CPA 

C M EM / I 

04 15 

04 04 0 

00200 1 


RSS 


0416 

0 4 0 41 

016123 


JSB 

PRINT 

0417 

04042 

035100 

S77 8 

ISZ 

C ME M 

04 18 

04043 

035101 


ISZ 

SEND 

0419 

04 0 4 4 

034266 


ISZ 

$822 

0420 

0 4 0 4 5 

034374 


IS? 

S828 

0421 

0 4 0 4 6 

026036 


JMP 

S 7 7 7 

0422 

04047 

035077 


IS? 

C SEC T 

0423 

04350 

035102 


IS? 

SECTC 

0424 

04o5 1 

125203 


JMP 

1776/ I 

042b 

04052 

06064 1 


L D A 

SCOMP 

0426 

04053 

002003 


SZA 

/RSS 

0427 

04054 

125177 


JMP 

S 858 / I 


NO 

CHAR. C 0 U N T a 1 2 
ST. ADD R. 

OUTPUT MESSAGE 
STATUS TO A 

PARITY B I T = 1 
NO 

CHAR. COUNT =17 
ST. AUDR. 

OUTPUT MESSAGE 
STATUS TO A 
BIT 3 3 1 ? 

NO 

CURR. TRACK VALUE 1U 3 
CONVERT OCTaL TO ASCII 
377 TO A 

RETAIN M . 3 . DIGIT 

PLANK TO A 8 - A 15 

SETUP PRINT MESSAGE 

ASCII TRACK VALUE 

SETUP PRInT MESSAGE 

CHAR. C 0 U N T a 2 0 

SJ. A 0 1) R . OF P R I T BUFFER 

OtSTPHT ERROR MESSAGE 

BUSY tKRCR FLAG TU A 

FL AG= V ? 

CHAR. COUNT INija 1R 

ST. A DDR. CF PRINT RUFFFR 

OUTPUT ERROR MESSAGE 

CLEAR FLAG 

START OF INPUT BUFFER 
ST. A R PR . OF INPUT BUFFER 
JUMP RETURN 

CLEAR WORD # 

RESET -64 

RESET SECT. BUFFER ADDRESS 

PICKUP GOOD WORD 

COMPARE TO TEST WORD 

GOOD 

ERROR 

INCH. INPUT BUFFER ADDR. 

INCH. SECTOR WORD P 

INCH. GOOD WORD ARRAY ADDR. 

64 WORDS FINISHED? 

DO ANOTHER KURD 
I NCR . CURRENT SECTOR COUNT 
APE ALL SECTORS COMPLETED? 

NO 

YES-SECTOR STRING COHPLE fE FLAG 
F L A G > 8 ? 

NO-CONTINUE SECTOR PROCESSING 
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0 428 

O' 4 V) :j 5 

002400 


CLA 


YES 

6429 

0 4 0 5 6 

070641 


STA 

SCOMP 

CLEAR flag 

0 4 30 

0 4 0 57 

061072 


IDA 

PCQMP 

track read COMPLETE FLAG 

04 31 

0 4 0 6 0 

002003 


SZA, 

RSS 

F L A G > O ? 

0432 

O43ol 

125200 


JMP 

S 8 5 9 , I 

NO-GET NEW TRACK VALUE 

0433 

04062 

002400 


CLA 


YES 

04 34 

0 4 0 6 3 

07 1072 


STA 

HCOMP 

CLEAR FLAG 

04 35 

04064 

11125 0 1 


L I A 

01 

SW. REG. TO A 

0436 

04 06 5 

001323 


FAR, 

RAH 

BIT2 TO B I T £5 

0437 

04066 

000010 


SLA 


B I T2*0? 

0«38 

0 4 u 6 7 

125201 


JMP 

S860, I 

LOOP UN read processor 

0439 

04070 

002021 


•SSA , 

RSS 

B I T 1 a 1 ? 

0440 

0407 1 

026075 


JMP 

S779 

check sw.o 

0441 

04 0/2 

161176 


IDA 

1855, I 

YES 

0442 

0 4O/3 

171103 


STA 

5354 / T 

BYPASS READ PARAMETERS 

0443 

0 40 7 4 

125105 


J HP 

S 8 b 6 * I 

RETURN TO WRITE PRUCfSSGP 

0444 

0 4 W 7 5 

001200 

S7 7 9 

PAL 


Li I T 1 4 TO BIT IS 

b 44 5 

0 4 0/6 

00202 1 


SSA , 

RSS 

B I T0*t? 

0446 

0 4O77 

02b 1 20 


J HP 

S 7 3 0 

NO-EXIT T 4 

6447 

0 4 10 0 

161176 


L DA 

1855, I 

YES 

0 448 

04101 

171103 


STA 

S 65 4 , I 

BYPASS READ PARAMETERS 

0 4 4 9 

04 1O2 

060231 


l DA 

CHUFF 

CQMPL. PATTERN BUFFER 

0400 

04 103 

00201 1 


SLA, 

PSS 


0 451 

04 134 

026117 


J HP 

S780-1 

no-write same pattern buffer 

0452 

04 Wi5 

060375 


1 DA 

58 2 9 

YES 

0453 

04106 

070374 


STA 

S 8 2 8 

-64 RESET 

6 454 

04 1 07 

060267 


L DA 

5623 

sector buffer ADDR. 

0455 

0 4 l 1 0 

O70266 


STA 

S 8 2 2 

RESET 

k. 4 56 

04 il 1 

160266 

577 9 A 

L DA 

5322, 1 

pickup word 

3 4 57 

04 112 

0O3O0O 


l HA 


COHPL. WORD 

0450 

04 113 

170266 


STA 

S 8 2 2 , I 

RESTORE WORD 

0 45y 

04 114 

034266 


ISZ 

S 3 2 2 

INCH. ADDR. 

0460 

0 41 16 

0343/4 


IS/ 

S 8 2 8 

64 WORDS FINISHED? 

046 1 

0 4 1 1 6 

0261 1 1 


JMP 

S//9A 

NO-LOOP 

0462 

04117 

125105 


JMP 

S856, I 

RETURN TO *R!fE PROCESSOR 

0463 

04 120 

002400 

S7f 0 

CLA 



0464 

04121 

171103 


STA 

S 8 5 4 , I 

NOP TO S 7 4 3 

0 4 6 5 

04 122 

125202 


JMP 

S 8 6 1 , I 

JUMP TO MAIN EXEC. 

0 466 

04123 

000000 

PH I NT 

POP 



0467 

04 124 

030700 


ISZ 

S999 

INCH. ERROR COUNT 

0 4 6 8 

04 125 

002001 


RSS 



0469 

0412b 

03570 1 


ISZ 

S999+1 

I N C R . ERROR COUNT OVERFLOW 

0470 

04 127 

000000 


POP 



0 4 7 1 

O4130 

102501 


L I A 

0 1 

SW. REG. TO A 

0472 

04131 

001323 


PAP, 

RAH 


0473 

04 132 

001300 


PAP 


BIT 3 TO 8 110 

0 47 4 

04 133 

000010 


SLA 


BIT 3=0 ? 

0 4 75 

04 1 34 

126123 


JMP 

SKINT, I 

BYPASS PRINT AND SUBROUTINES 

0476 

04135 

065076 


L D B 

CTPCK 

CURR. TRACK VALUE TO 3 

0477 

04 1 36 

114U3 


JSH 

CONV , I 

CONVERT OCTAL TO ASCII 

0478 

04137 

0602O6 


LDA 

S 8 1 2 

377 Tu A 

04/9 

O4140 

010111 


A N l.< 

C APR f ♦! 

RETAIN HIGH ORDER DIP-GIT 

0460 

04141 

001727 


ALF , 

ALF 


0401 

0414? 

070001 


STA 

1 


0462 

04143 

0604/ 5 


l DA 

S 8 3 1 

17/400 TO A 

0 403 

04 144 

0l«l 12 


AND 

CAHKY+2 

RETAIN MIDDLE digit 

0464 

to4 1 45 

001727 


ALF , 

ALF 

A 8 - A I h TO A T - A ? 
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f 


0485 

04 146 

030001 

I OR 

1 


0486 

04147 

071136 

S T A 

FES3/+3 

SETUP PRINT MESSAGE 

0487 

04150 

O60206 

IDA 

S8 12 

377 TO A 

0488 

04151 

010112 

AND 

CARRY+2 

RETAIN LOR DIGIT 

0489 

04 152 

001727 

A IF 

, AIF 


0490 

04 153 

O30476 

I OR 

S 8 3 2 

BLANK TO A 0 - A 7 

0 4 91 

04164 

07 1 137 

ST A 

MES37+4 

SETUP PRINT MESSAGE 

6492 

O 4 i 55 

065077 

L DR 

CSECT 

CURR. SECTOR VALUE TO 3 

0493 

04156 

114113 

J SB 

CONV, 1 

CONVERT OCTAL TO ASCII 

0 49 4 

04157 

064476 

IDB 

3 8 3 2 

ASCI t BLANK 

0 4 95 

041o0 

005727 

ELF 

» PLF 

A0 * A 7 TO A8-A15 

0 4 9b 

04 161 

060206 

t DA 

S 8 1 2 

377 TO A 

6497 

04 162 

010111 

AND 

C A R R Y + 1 

RETAIN low digit 

0 4 98 

04153 

030001 

I OR 

1 

bLANk TO A 

6499 

04 l 64 

071143 

STA 

PES37+8 

SETUP PRINT MESSAGE 

0500 

0 4 l 6 5 

060112 

IDA 

CARRY+2 

SECOND HALF 

0 501 

04 166 

071144 

STA 

PES37+9 

SETUP PRINT MESSAGE 

0 502 

0 416 7 

065101 

LDH 

SEND 

CURR. WORD U TO H 

6500 

0 4 17 0 

114U3 

J SB 

C 0 <•« V , I 

CONVERT OCTAL TO ASCII 

0 504 

04 171 

060 112 

IDA 

C ARR 1 +2 

LOW ORDER DIGITS 

0505 

04172 

071152 

STA 

FES37+15 

SETUP PRINT MESSAGE 

0506 

04173 

164266 

LDP 

S 822 * I 

OUTPUT WORD TO R 

0507 

0 4 1/4 

114113 

J SB 

CONV , I 

CONVERT OCTAL TO ASCII 

0508 

04 175 

0601 10 

L DA 

CARRY 

1ST wORD 

C509 

041/6 

071161 

STA 

H t S 3 8 + 4 

SETUP PRINT MESSAGE 

0510 

04 177 

06011 1 

L DA 

CARRY +1 

2ND WORD 

0511 

04200 

07 1162 

STA 

FES36+5 

SETUP PRINT MESSAGE 

0512 

0 4 2U1 

060112 

L DA 

CaRRY+2 

3RD WORD 

0513 

04202 

071163 

STA 

FES33+6 

SETUP PRINT MESSAGE 

0514 

0 4 20 3 

165100 

IDB 

C M F M , I 

INPUT WORD TO b 

051b 

04204 

114113 

J SB 

CUN V, ! 

CONVERT OCTAL TO ASCII 

H516 

04205 

060110 

L DA 

CARRY 

1ST WORD 

0517 

0 4 2 0 6 

07 1 170 

STA 

HES38+1 1 

SETUP PRINT MESSAGE 

0518 

04207 

060111 

l DA 

CARRY+1 

2&0 WORD 

0519 

04 210. 

071171 

STA 

FES 36+ 1 2 

SETUP PRINT MESSAGE 

0520 

0421 1 

06O112 

L D A 

CARRY+2 

3RD WORD 

0521 

04212 

071172 

STA 

HES38+ ! 3 

SETUP PRINT MESSAGE 

0522 

04213 

061153 

t DA 

CHA37 

NO. OF CHAR. *32 

0523 

04214 

065132 

LDO 

I AD37 

ST. ADDR, OF PRINT BUFFER 

0524 

04215 

114102 

JSfc 

1U2B, I 

PRINT MESSAGE 

0525 

04216 

061173 

L »A 

CHA38 

NO. OF CHAR. *28 

0626 

04217 

065154 

I DR 

1 A D38 

ST. A DDR . OF PRINT BUFFER 

0527 

04220 

114102 

J SB 

102B / I 

PRIM MESSAGE 

0526 

04221 

126123 

J HP 

PRINT , I 

EXIT 

0$29***** TRACK ADDRESS VERIFICATION SUBROUTINE ***** 

0530 

04222 

000000 

TRvER NOP 



0531 

04223 

002400 

CLA 



0532 

04224 

07O171 

STA 

T0PT2 

CLEAR INFO 

0533 

04225 

062475 

L DA 

CHA48 

NO. OF' CHAP.* 13 

0534 

04226 

066474 

L DU 

1 AD48 

ST. ADDR. OF PRINT SUFFER 

0535 

04227 

114102 

J SB 

1026# I 

OUTPUT MESSAGE 

0536 

0423C 

060200 

IDA 

S8H5 

CHAR. C0UNT*72 

0537 

04231 

070177 

S I A 

S 80 4 

SETUP INPUT CHAR, LENGTH 

0538 

04232 

015300 

J SB 

S900 

CALL INPUT SUBROUTINE 

0539 

04233 

060602 

L DA 

S 8 4 2 

-3 TO A 

0540 

04234 

070603 

STA 

S 8 4 3 

RESET CHAR. COUNTER 

0 541 

04235 

002403 

CLA 
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0 542 

04236 

070540 


ETA 

S 8 4 8 

0 5 4 3 

04237 

016541 

S548 

JSB 

S 9 0 1 

0 54 4 

W 4 2 4 0 

6504/6 


CPA 

S 8 3 2 

0545 

0 4 2 4 1 

026266 


J HP 

S 5 4 9 

05 46 

04242 

015363 


JSB 

S902 

0547 

04243 

026223 


JMP 

TKVER+1 

0548 

0 4 2 4 4 

064114 


L DH 

M ASK2 

0549 

0 4 2 4 5 

010001 


AND 

1 

0550 

0 424b 

064540 


L DP 

S84C 

Obbl 

04 2 47 

005723 


ELF, 

R8H 

k? 552 

04260 

030001 


I OR 

1 

0 553 

0 4 2 51 

078540 


STA 

S 8 4 B 

0554 

0 4 2 0 2 

0346O3 


I s z 

S 85 3 

0555 

042 53 

026257 


JMP 

S 5 4 8 

0556 

0 4 2 5 4 

081727 


ALF, 

ALF 

0557 

0 4 2 55 

00 1 380 


R AR 


0558 

04266 

870171 


STA 

T0PT2 

0 559 

0 4 25 7 

0 817 27 


ALF , 

ALF 

0 566 

0 4 2 6 0 

002003 


SZA, 

R S3 

0 o61 

0 42 6 1 

026223 


JMP 

T H VER+ 1 

056 2 

0 4 26? 

041262 


ADA 

Shift 

w5b3 

04 2 o 3 

002026 


ESA 


0564 

04264 

0262/2 


JMP 

S 5 4 9 + 4 

0565 

0 4 26 5 

026223 


JMP 

T R V E K + 1 

0 566 

04266 

064 176 

S5A9 

L DP 

SEXT 

0567 

04267 

00 6 ft 1 1 


SLH , 

PSS 

US 6 3 

04 27 0 

026237 


JMP 

S648 

0 069 

042 7 1 

J26223 


JMP 

TRVEK+1 

0 570 

0 42/2 

00240ft 


CL A 


0 571 

04273 

071247 


STA 

S 6 a O 

0572 

042/4 

070652 


STA 

WCOHP 

057 3 

0 42 75 

07064 1 


STA 

SCOMP 

C 57 4 

0 4 2 7b 

0 7 1V1 7 2 


STA 

RCOMP 

0 575 

04277 

070231 


STA 

C G U F F 

0576 

043O0 

170504 


STA 

A wSPP , I 

05 77 

0450 1 

170510 


STA 

A H3BF * 1 

0578 

0 4 6O2 

002004 


1 N A 


00/9 

04533 

172465 


STA 

Soft!, I 

6580 

0 4504 

172466 


STA 

S 5 0 2 , I 

0581 

0430b 

062465 


IDA 

S50 1 

0582 

04336 

002004 


1 N A 


0583 

04307 

070605 


STA 

L A WSH 

0634 

04 3 IP 

062466 


.IDA 

S502 

0 685 

0451 1 

0O2004 


INA 


0586 

0 4 312 

071317 


s r a 

L ARSb 

0587 

04313 

060502 


l DA 

A W T 8 F 

0588 

04314 

002004 


INA 


0569 

04315 

0 7 06 0 4 


STA 

L A W T W 

0590 

04516 

060586 


L DA 

ARTBF 

0591 

04517 

002004 


J N A 


0692 

04520 

071016 


STA 

L ARTB 

0593 

04321 

162470 


LDA 

S504, 1 

0594 

04322 

172471 


STA 

S 5 O 5 , I 

0695 

04323 

061247 

S55 0 

l DA 

S5O0 

0596 

04324 

081727 


ALF, 

ALF 

0597 

04325 

001200 


F AL 


0598 

04526 

170582 


STA 

A * T 6 F , ! 


CLEAR CHAR, HOLD 
GET A CHAR. 

IS Char, a blank? 

CHECK EXIT FLAG 
CHECK LEGAL IT Y-g-7 
RESTART 
7 TO 8 

RETAIN A 0 - A 2 
PARTIAL TO 0 
RO'CATE LEFT 5 
tj TO A 

KESTQkE RESULTS 
FINISHED? 

MO-GET ANOTHER CHAR. 

A 0 -A 7 TO Ab-Alb 
ADJUST TO A 7 - A 1 3 
SAVE TRACK ft IN BINARY 
A 8- A 15 TO Ail- A7 
VALUE > vs? 

NO -REST ART 
ADD -101 
PCS.? 

NO-CON 1 I NUE 
YES-REST ART 
EXIT FLAG TO 0 
EXIT F L A G » 1 ? 

N’O-COhT I NUE 
YES-RESTART 

CLEAw ACTIVE TRACK COUNTLk 
CLEAR HR. TR. FLAG 
CLEAR HR. SECTOR FLAG 
CLEAR RD. TR. FLAG 
CLEAR COHP. PATT. H.aG 
I SET WRITE SECTOR ADDRESS 

1 SET READ SECTOR ADDRESS 

SET CUNSEC. u OF SECTORS 
SET COnSEC. » OF 'WRITE SECTORS 
SET CUNSEC. ti OF READ SECTORS 

LAST ADDR.+l OF SECTOR PUFFER 
SET TERMINAL ADD*. 

LAST ADDR.+l OF SECTOR BUFFER 
SET TERMINAL ADDR. 

LAST ADDR.+l OF TRACK BUFFER 
SET TERMINAL ADDR. 

LAST ADDR.+l OF TRACK BUFFER 
SET TERMINAL ADDR. 

J HP WRITE, I TO A 
SETUP RETURN JUMP 
PICKUP TR. /SECTOR ADDRESS 
A8-A15 TO A0-A7 

I PUT TRACK ENTRY IN BUFFER 
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8599 

04327 

060375 


L D A 

S829 

- 6 4 TO A 

8b(e0 

04 330 

070374 


STA 

S828 

RESET NOKKING COUNT 

00 01 

04331 

060267 


L DA 

S323 


0002 

04332 

070266 


STA 

$822 

KESET SECTOR BUFFER ADDRESS 

8603 

04333 

061247 


L DA 

$500 

PICKUP TR./SECT. A D OP . 

0 604 

04 5 34 

170266 

S5t 1 

STA 

S622, I 

STOKE IN BUFFER 

0605 

04335 

034266 


1 SZ 

S 82 2 

1NCR. BUFFER ADDRESS 

0006 

04336 

034374 


ISZ 

S 6 2 8 

1 NCR , WORD COUNT 

ti 60 7 

04337 

026334 


JMP 

S 55 1 

BUFFER NOT F I N I S H E D 

0 608 

84540 

116467 


JSH 

S583, I 

WRITE ONE TRACK 

0609 

8404 1 

061247 


L DA 

S50B 

PICKUP CORK. TR. VALUE 

0 6 1 to 

0 4 3 4 2 

042472 


ADA 

S576 

ADD 1 TO TR. ADOk. 

061 1 

84543 

071247 


STA 

S588 

STORE TR./SECT. aDOR.+I 

0612 

04544 

0501/1 


CPA 

T0PT2 

LAST ADDF.+l? 

0613 

04 346 

026347 


JMP 

* +2 

YES 

0614 

84546 

826323 


J ftP 

S 550 

NO-DO ANOTHER TRACK 

0615 

0 4 34 7 

00240® 


CLA 



0b 1 6 

0455P 

172467 


STA 

S5®3/ I 


too 1 7 

04 351 

17247 1 


STA 

S505, I 

CLEAR HOP'S 

fcbi a 

84552 

071247 


STA 

S380 

CLEAR ACTIVE TRACK COUNTER 

0619 

84353 

162473 


l DA 

S 5 0 8 , I 


8620 

84 35 4 

171251 


STA 

8 58 9/ I 

SETUP RET UR.? JUMP 

0621 

04 o56 

061247 

$55 2 

LDA 

S588 

PICKUP TR./SECT Oh ADDRESS 

0622 

04556 

081727 


ALF, 

ALF 

A8-A15 TO AvJ-A 7 

0623 

04557 

00128® 


PAL 



0624 

04560 

178306 


STA 

ARTBF , I 

PUT TRACK ENTRY IN BUFFER 

(••625 

0 4 5 61 

11525® 


J SB 

$507, l 

KEAU one track 

0 0 26 

04062 

0685/5 


LDA 

$829 


00 27 

04563 

078374 


STA 

S 8 2 8 

RESFT -64 

0628 

8 4 5 6 4 

865247 


L DP 

S500 

PICKUP TR./SECT. PATTERN 

06 29 

84365 

155100 

S5S3 

f PP 

ChEH, I 

COMPARE TO RECORD 

8o3« 

04366 

002081 


RSS 


GOOD 

06 31 

84 367 

026414 


J HP 

PROUT 

ERROR 

0632 

84370 

035100 


ISZ 

CMEM 

INCR. INPUT BUFFER A P DR , 

to o 3 3 

0437 1 

034374 


ISZ 

S628 - 

64 WORDS FINISHED? 

0634 

04372 

026365 


JHP 

$55 3 

00 ANOTHER WORD 

*3 o 3 ‘3 

04573 

061247 

556 4 

t DA 

S 508 

PICKtJP CORK. TR. VALUE 

to636 

U4374 

042472 


ADA 

S5P6 

ADD 1 TO TRACK ADOK. 

0637 

04575 

071247 


STA 

S 508 

STUPE TK./SECT. ADDS.+l 

0638 

04576 

0581/1 


CPA 

TOP T2 

LAST ADGK.+l 

0639 

04 37 7 

0264O1 


JMP 

* +2 

YES-FINISHED COMPLETE PASS 

8 640 

04400 

026355 


JMP 

S552 

NO-QO ANOTHER TRACK 

to 6 4 1 

0 4 4 01 

1 8 2 5 it 1 


l IA 

e 1 

S W . REG. TO A 

00 4 2 

04482 

00 1 7 8 to 


alf 


BITii TO HIT 15 

0643 

04403 

802020 


S S A 


B l T 11*0? 

86 4 4 

04484 

026321 


JHP 

S 550-2 

NO-LOOP CHECK 

0645 

04405 

082400 


CLA 



8646 

04 406 

171250 


STA 

8 507, I 


0647 

04407 

171251 


STA 

S5H9, I 

CLEAR NOP'S 

0 648 

84410 

062477 


LDA 

C H A 4y 

NO. OF CHAR. *28 

0649 

044 11 

8664/6 


L DB 

I AD49 

ST. ADDR. OF PRINT BUFFER 

0050 

044 12 

114102 


J SB 

1 82B , I 

OUTPUT MESSAGE 

0651 

044 13 

120222 


JHP 

TRVER, 1 

EXIT CHECK 

0652 

044 14 

005727 

Pftt UT 

eLF, 

ELF 

B8-D15 TO B0-B7 

0653 

044 15 

805200 


FbL 



0654 

04416 

114113 


J SB 

(. 0 N V , 1 

CONVERT OCTAL TO ASCII 

8 655 

04417 

060286 


L Da 

S 8 1 2 

377 TO A 
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065b 

04*28 

010111 


AND 

CARPT+1 

RETAIN M.S. DIGIT 

0 657 

8 4 4 2 1 

878081 


ST A 

1 


0658 

8 4 4 22 

060475 


LDA 

S 8 3 1 

177400 MASK 

0o59 

04423 

0 10 1 12 


AND 

C ARRY+2 

MIDDLE DIGIT 

0 6 60 

04424 

001727 


ALF 

, ALF 


0061 

0 44 2 5 

005727 


P L M 

, BtF 


066 2 

84426 

0300fcl 


I OR 

1 


0063 

04427 

072514 


STA 

FES5 148 

SETUP PRINT MESSAGE 

0064 

04430 

060286 


LDA 

S 3 1 2 

377 TO A 

0665 

04431 

810112 


AND 

C A R R Y 4 2 

RETAIN LOn DIGIT 

0666 

04432 

081727 


ALF 

,ALF 


0667 

0 4 4 3 3 

830476 


I 0 R 

S832 


Hoo8 

04434 

072515 


STA 

PES5149 

SETUP PRINT MESSAGE 

0669 

04 4 35 

165100 


L CD 

C ME 6 , I 

PICKUP ERROR TR. VALUE 

0670 

04436 

0832B0 


F 3 L 



0671 

04437 

083727 


ELF 

,BLF 

88-B 1 M TC B0-87 

iW2 

U 4 4 4 0 

114113 


JSP 

C 0 N V , I 

CONVERT OCTAL TO ASCII 

0o73 

0 4 4 41 

060286 


LDA 

SSI 2 

377 YU A 

06 7 4 

04442 

018111 


AND 

C ARRY41 

RETAIN M.S. DIGIT 

0675 

04443 

870001 


STA 

1 


06 7 6 

04444 

8604/5 


LDA 

S3 31 

177406 mask 

0677 

0 4 4 4 5 

610112 


A N D 

C A R R Y 4 2 

MIDDLE DIGIT 

0678 

0 4 4 4 6 

£01727 


ALF 

f A L F 


06 7 9 

0 4 4 4 7 

005727 


RLF 

,BLF 


06 8 0 

0 4 4 60 

03080 1 


I OR 

1 


0 681 

0 4 451 

872525 


STA 

PES51+1 7 

SETUP PRINT MESSAGE 

0 662 

04*32 

868206 


LDA 

53 12 

377 TC A 

0083 

04453 

818112 


AND 

CARRY 42 

RETAIN LON DIGIT 

0 06 4 

04454 

001727 


ALF 

f A L F 


0665 

8 4 4 55 

072526 


STA 

(8551418 

SETUP PPlNT MESSAGE 

0660 

04456 

062581 


L DA 

CM A 50 

NO. OF CHAR . = 19 

0667 

84437 

866560 


L DP 

I AD 50 

ST. aDDR. OF PRINT BUFFER 

0666 

0 4 4 o 8 

114182 


J SB 

1028,1 

OUTPUT ERROR MESSAGE 

0689 

0 4 4 6 1 

862303 


LDA 

C H A 5 1 

NO e OF CHAR.. *36 

0 b 9 0 

84462 

066582 


l DB 

1 AC51 

ST. aDDR. uv F R I N I BUFFER 

0091 

34463 

114182 


J SR 

1628, I 

OUTPUT ERROR MESSAGE 

0692 

3 4 4 6 4 

0263/3 


JMP 

S 55 4 

DC NEXT TRACK 

069 3 

8 4 4 6 5 

0647/0 

S5C 1 

T.EF 

RSBUF 4 1 

IND. ADDR. 

069 4 

0 4 4 6 6 

005460 

S5lr 2 

t EF 

R SB UF 4 1 

1ND. ADDR. 

0»69b 

04 4 6 7 

002574 

55*3 

I EF 

WRITE 

IND. ADDR. 

069b 

C44/0 

802573 

S5* 4 

LEF 

S600 

IND. ADOR. 

0097 

6 4 4 7 1 

083104 

55* b 

(EF 

S601 

IND. ADDR. 

8696 

W4472 

080200 

S5£ 6 

CCT 

2 00 

TRACK INCH, 

06 99 

84473 

0035 1 1 

5 5* 8 

l EF 

S 68 2 

IND. ADDR. 

8700 

04474 

004527 

1 A £ 48 

CEF 

M F. S 4 (J 

BUFFER ADDR, 

0701 

04475 

0008 I 7 

CH* 48 

CCT 

17 

char. COUNT 

0702 

04 47 6 

084537 

IA149 

f. EF 

FES49 

BUFFER ADDR. 

8703 

04477 

000334 

ChA 49 

CCT 

34 

CHAR. COUNT 

0704 

04 588 

004555 

1 M 50 

LEF 

FES56 

BUFFER AD UR. 

0705 

0450 1 

068023 

CM 50 

CCT 

23 

CHAR. COUNT 

0786 

0430? 

004564 

1 AL 51 

CEF 

FES51 

BUFFER ADDR. 

0787 

04503 

000045 

CM 5 1 

CCT 

45 

CHAR. COUNT 

0708 

04334 

042530 

MES51 

ASC 

19, EXPECTED TRACK- ACTUAL TRACK 


£4585 0 5 W 1 a 5 
04536 041524 
04507 042504 
04310 020124 
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0451 1 Ubll^l 
04512 G41513 

0 4 5)3 u 2 o 4 4 O 
04014 020040 
04b ib 020040 
04016 040503 
04517 052125 

04520 0405 1 4 

04521 020124 

04522 0511W1 

04523 041513 
*,4o24 026440 
04625 020040 
04526020040 

07»9 04527 04/117 I" 65 4 8 A SC 8, NO, OF TRACKS ? 

04530 02/040 
04631 04750b 
0 4 6 32 0 20 12 4 
W4533 Gbllui 
04 o 34 0 4 15 13 
H4535 051440 
045v56 037440 

0710 04537 052122 *1:5 49 ASC I4,TKACK ADDRESS CHECK COMPLETE 

G4540 040 5 w 3 

04541 045440 
04o42 040504 
04543 042122 
04644 042523 
04545051440 

04546 041510 

04547 042503 
04550045440 
04551041517 
04552 046620 
04653 0461C5 
04554 052105 

0711 04555 052122 F E 5 5 6 ASC 10,TkACK ADDRESS ERROR 
0 4 5 5 f 040503 

04557 045440 

04660 040504 

04661 042122 
W4562 042523 

04563 051440 

04564 042522 

04565 051117 
W4566 051040 


0712 

04567 

000000 

R T-c UF 

fcSS 

128 

WRITE TRACK DUFFER 

07 13 

04767 

0OOO00 

w S fc U F 

ess 

184 

write sector buffer 

0/14 

05257 

000000 

RTEUF 

ess 

128 

READ TRACK BUFFER 

07 15 

05457 

000000 

RSEUF 

ess 

1 6 4 

READ SECTOR bUFFER 

07 16 

057 47 

000000 

SOS O 

ess 

1 

0717 

00105 



CRG 

1 05B 


0716 

00105 

005747- 


TEF 

SOflO 


0719 
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TABU 6-3. 

CODE LIST OF MANUFACTURERS 


fhe following code numbers are from the Federal Supply Code for Manufacturers Cataloging Handbooks H4-1 
(Name to Code) and H4-2 (Code to Name) and their latest supplements. The date of revision and the date of the 
supplements used appear at the bottom of each page. Alphabetical codes have been arbitrarily assigned to 
suppliers not appearing in the H4 Handbooks. 


Code 


No. 

Monufocturer 

Address 

OfjrVQCi 

U . S. A. Common 

Any supplier of U. S. 

; 136 

McCoy Electronics Mount Holly Springs, Pa. 

002 13 

S.ige Electronics Corp. 

Rochester, N. Y. 

uG 28/ 

Cenco Inc. 

Danielson, Conn. 

00 334 

Huuiidial 

Colton, Calrf. 

00143 

Microtron Co. , Inc. 

Valley Stream, N.Y. 

003/3 

Gatiock Ire 

Cherry Hill, N.J. 

00656 

Aero v.o* Cofp. 

New Bedford. Mass. 

007 79 

Awn. |nc. 

Harrisburg, Pa. 

00 731 

Aircraft Radio Corp. 

Boonton, N.J. 

00515 

Northern Engineering Laboratories, Inc. 



Burlington, Wts. 

00H53 

Sangamo Electric Co., Pickens Dtv. 



Pickens, S.C. 

00.60 

Goe Engineering Co. 

City of Industry, Cal. 

fiG'vM 

Car! E. Holmes Corp. 

Los Angeles, Calif. 

00 '7/9 

Micro lab Inc. 

Livingston, N.J. 

01002 

General Etectnc Co., Capacitor Dept. 



Hudson Falls, N.Y. 

0 1009 

•Afden Products Co. 

Brockton, Mass. 

01121 

Allen Bradley Co. 

Milwaukee, Wis. 

CT 255 

Litton Industries, Inc. 

Beverly Hills, Calif. 

01281 

T RW Semiconductors, Inc. 

Lawndale, Calif. 

01295 

T exas Instruments, Inc. , 



Transistor Pioducts Dtv. 

Dallas, Texas 

01349 

The Alliance Mfg. Co. 

Alliance, Ohio 

91589 

Pacific Relays, Inc. 

Van Nuys, Calif. 

01930 

Aruerock Corp. 

Rockford, III. 

;19M 

Pulse Engineering Co. 

Santa Clara, Calif. 

0 2 i 1 4 

Fenoxcube Ccrp. of America 

Saugerties, N.Y. 

02116 

Wheelock Signals, Inc. 

Long Branch, N. J. 

0 2266 

Cole Rubber and Plastics Inc 

Sunnyvale, Calif. 

02660 

Amphenol- Borg Electronics Corp. Chicago, III. 

027 35 

Radio Corp. of America, Sem 

iconductor 


and Materials Div. 

Somerville, N. J. 

02/71 

Vocaline Co. of America, Inc. 



Old Saybrook, Conn. 

027 7 / 

Hopkins Engineering Co. 

San F ernando, Calif. 

03 50 8 

G. E. Semiconductor Prod. Dept. Syracuse, N.Y. 

-03 705 

Apex Machine & Tool Co. 

Dayton, Ohio 

03 797 

Eldema Corp. 

Compton, Calif. 

0387 7 

Transition Electric Corp. 

Wakefield, Mass. 

0-3833 

Pyrofilm Resistor Co. . Inc. 

Cedar Knolls, N.J. 

03SS4 

Singer Co. , Diehl Div. 



Fmderne Plant 

Sum erv i 1 1 e , N.J. 

04009 

Arrow, Hart and Hegemart Elect. Co. 



Hartford, Conn. 

04013 

Taurus Corp. 

Lambertville, N. J. 

04062 

Arco Electronic Inc. 

Great Neck, N.Y. 

04222 

H i Q Division of Aerovox 

Myrtle Beach, S. C. 

04354 

Precision Paper Tube Co. 

Wheeling, III. 

04404 

Dyinec Division of Hewlett-Packard Co. 


Palo Alto, Calif. 

04651 Sylvan i a Elec tnc Products, Microwave 

Device Orv. Mountain View, Calif. 

04713 Motorola, Inc.. Semiconductor Prod. Div. 

Phoenix, Arizona 

0473? Fiition Cc . Inc. Western Div. 

Culver City, Calif. 

04 / 7 3 Automatic Electnc Co. Northlake, III. 

04796 Sequoia Wire Co. Redwood City, Calif. 

G4SU Precision Cod Spring Co. El Monte. Calif. 

G48/0 P.M. Motor Company Westchester, tit. 

04919 Component Mlg. Service Co. 

W. Bridgewater, Mass. 
OS 00 6 Twentieth Century Plastics, Inc. 

Los Angeles, Calif. 

OS?/ 7 Westingh'juse Electnc Co rp . 

Semi-Conductor Dept. Youngwood. Pa. 

0 534? Uttroi'ix . inc * San Mateo, Calif. 


Code 

No. Manufacturer Address 

0539/ Union Carbide Corp... Linde Div. . Kernel Dept. 

Cleveland, Ohio 

05593 lllumitroinc Engineering Co. Sunnyvale. Calif. 
05616 Cosmo Plastic 

ic o Elcctncai Spec. Co. ) Cleveland. Ohio 
05624 Barber Colman Co. Rockford. III. 

05728 Tiffen Optical Co 

Roslyn Heights, Long Island. N.Y. 

05729 Metro-T el Corp. Westbury , N.Y. 

05783 Stewart Engineering Co. Santa Cruz. Calif. 

05820 Wakefield Engineering tnc. Wakefield, Mass. 
06004 Bassick Co.. Div. of Stewart Warner Corp. 

Bridgeport. Conn. 

06090 Raychem Corp Redwood City, Calif. 

G6175 Bausch and Lomb Optical Co. Rochester, N.Y. 
06402 E.T.A. Products Co. of America Chicago, III. 
G6540 Am.atom -Electronic Hardware Co. „ Inc. 

New Rochelle, N. Y. 

06555 Beede Electrical Instrument Co. , Inc. 

Penacook, N. H. 

06666 General Devices Co. . Inc. Indianapolis, tnd. 
06751 Semcor Div. Components Inc. Phoenix. Ariz. 
06312 Tornngton Mlg. Co., West Div. 

Van Nuys. Calif. 

06980 Vanan Assoc, Etmac Div. San Carlos. Calif. 
07088 Kelvin Electric Co. Van Nuys, Caltf.- 

07126 Dtgitran Co. Pasadena. Calif. 

071 37 Transistor Electronics Corp. Minneapolis, Minn. 
07 138 Westmghouse Electric Corp. 

Electronic Tube Div. Elmira, N. Y. 

071 49 Filmohm Corp. New York, N. Y. 

07233 Cmch-Graphtk Co. City of Industry, Calif. 

0726 1 Avnet Corp. Culver City, Calif. 

07263 Fairchild Camera & Inst. Corp. 

Semiconductor Div. Mountain View, Calif. 

07322 Minnesota Rubber Co. Minneapolis, Minn. 

07387 Butcher Corp . The Monterey Park, Calif. 

07397 Sylvama Elect. Prod, inc., Mt. View Operations 
Mountain View. Calif. 
07700 Technical Wire Products Inc. Cranford. N. J. 

07910 Continental Device Corp. Hawthorne, Calif. 

07933 Raytheon Mfg. Co. . 

Semiconductor Div. Mountain View, Canf. 

07980 Hewlett-Packard Co. . Boonton Radio Div. 

Rockaway. N.J. 

08145 U S. Engineering Co. Los Angeles, Calif 

08289 Blmn, Delbert Co. Pomona. CalT. 

08358 Burgess Battery Co. 

Niagara Falls, Ontario, Canada 
08524 Deutsch Fastener Corp. Los Angeles, Calif. 

08664 Bristol Co.. The Waterbury, Conn. 

087 1 7 Sloan Company Sun Valley, Cafif. 

087 18 ITT Cannon Electric Inc., Phoenix Dtv. 

Phoenix, Arizona 

08792 CBS Electronics Semiconductor 

Operations, Div of C. B. S. Inc. 

Lowell, Mass. 

08984 Mel-Ram Indianapolis, Ind. 

09026 Babcock Relays Div. Costa Mesa. Calif. 

09134 Texas Capacitor Co. Houston, Texas 

09145 Tech. Ind. Inc. Atobm Elect. Burbank, Calif. 
09250 Electro Assemblies, Inc. Chicago, til. 

09569 Mallory Battery Co. of 

Canada, Ltd. Toronto, Ontario, Canada 

10214 General Transistor Western Corp. 

Los Angeles. Calif. 
10411 Ti-Tal, Inc. Berkeley, Calif. 

10646 Carborundum Co. Niagara Falls, N.Y. 

11236 CTS of Berne, Inc. Berne. Ind. 

1 1237 Chicago Telephone of California, Inc. 

So. Pasadena, Calif. 


Code 

No. Manufacturer Address 

1 1242 Bay State Electronics Corp. Waltham, Mass. 

11312 Teledyne inc. , Microwave Div. Palo Alto, Calif. 
11314 National Seal Downey, Calif. 

11534 Duncan Electronics Inc. Costa Mesa, Calif. 

11711 General Instrument Corp. , Semiconductor 

Div., Products Group Newark, N.J. 

11717 Imperial Electronic, tnc. Buena Park, Calif. 
11870 Melabs, Inc. Palo Alto, Calif. 

12136 Philadelphia Handle Co. Camden, N.J. 

12361 Grove Mfg. Co., Inc. Shady Grove, Pa. 

12574 Gulton Ind. Inc. Data System Div. 

Albuquerque. N. M. 

12697 Clarostat Mfg. Co. Dover, N.H. 

12723 Elmar Filter Corp. W. Haven, Conn. 

12859 Nippon Electric Co. , Ltd. Tokyo, Japan 

12881 Metex Electronics Corp. Clark, N.J. 

12930 Delta Semiconductor Inc. Newport Beach, Calif. 
12954 Dickson Electronics Corp. Scottsdale, Arizona 
13103 Thermolloy Dallas, Texas 

13396 Telefunken (GmbH ; Hanovet, Germany 

13835 Midland-Weight Div of Pacific Industries, tnc. 

Kansas City, Kansas 
14099 Sem-Tech Newbury Park, Calif- 

14193 Calif. Resistor Co. p. Santa Monica, Calif. 

14298 American Components, tnc. Conshohocken, Pa. 
14433 ITT Semiconductor. A Div. of lot. Telephone 

& Telegraph Corp. West Palm Beach, Fla. 
14493 Hewlett-Packard Company Loveland, Colo. 

14655 Cornell Dublier Electric Ccrp. Newark, N.J. 

146/4 Corning Glass Works Corning, N.Y. 

14752 Electro Cube Inc. San Gabriel, Calif. 

14960 Williams Mfg. Co. San Jose, Calif. 

15203 Webster Electron's Co. New York, N.Y. 

15287 Sc t on ic s Corp. Northridge, Calif. 

15291 Adjustable Bui* -ig Co. H. Hollywood, Calif. 
15558 Micron Electro c 

Tude-n City. Long Island, N.Y. 

155S6 Amprobe Ins* Lynbrook, N.Y. 

1563 1 Cabletronics Costa Mesa, Calif. 

157 72 Twentieth Century Coil Spf'ng Co. 

Santa Clara, Calif. 

15801 Fenwal E Framingham, Mass. 
15318 Amelco inc Mt. View. Calif. 

16037 Spruce Pine M ca Co. Spruce Pine, N.C. 

15179 Omm-Spectia Hr. Detroit, III. 

16352 Computer Diode Corp. Lodi, N.J. 

16688 Ideal Prec. Meter Co. , inc. 

De Jur Meter Civ. Brooklyn, N.Y. 

16758 Detco Radio Div. of G.M.Corp. Kokoma, |nd. 
17 (09 Thermonetics inc. Canoga Park, Calif. 

17 474 Tranex CcmpaTsy Mountain View, Calif. 

17675 Hamlin Metal Products Corp Akron, Ohio 

17745 Angstrohm Free, Inc. No Hollywood, Calif. 
17870 McGiaw-Edison Co. Manchester, N.H. 

18042 Power Design Pac-?<c Inc. Palo Alto, Calif. 

1.8083 Clevite Corp. , Semiconductor Div. 

Palo Alto, Calif. 

18324 Signeltcs Corp. Sunnyvale, Calif. 

18476 Ty-Car Mfg. Co... Inc. Hoiiiston, Mass. 

18486 TRW Elect. Comp. Div. Des Flames, ill. 

18583 Curtis Instrument, Inc. Mt. Kisco, N.Y. 

18373 E.t. DuPont and Co. . Inc. Wilmington, Del. 

18911 Durant M?g. Co. Milwaukee, Wts. 

13315 The Bendix Corp., Navigation & Control Div. 

Teterboro, N.J. 

19500 Thomas A. Edison Industries, Div. of 

McGraw- Edison Co. West Orange, N.J, 

19585 Concoa Baldwin Park, Calif. 

19644 LRC Electronics Horseheads, N.Y. 

19701 Electra Mfg Co. Independence, Kansas 
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Code 

No. 


20183 

21226 

21335 

21520 

23783 

24455 


24655 

24681 

26365 

26462 

26992 

28480 

28520 

33173 

35434 

36196 

36287 

37942 
3954 3 
4G920 
4$m 

43990 

44655 

.46384 

47904 

48620 

49956 

52090 

52983 

54294 

55026 

55933 

5593S 

56137 

56289 

59446 

59730 

60741 

61775 

62119 

63743 

64959 

65092 

66295 

66346 

70276 

70209 

70318 

70485 

70563 

7Q674 

70903 

70998 

71002 

71041 

71218 

71286 

71313 

71400 


TABLE 6-3. 

CODE LIST OF MANUFACTURERS (Cont’d) 


Manufacturer 


Address 


Code 

No. Manufacturer 


Address 


Code 

No. Manufacturer 


Address 


General Atromcs Corp. Philadelphia, Pa. 

Executone, Inc. Long Island City, N.Y. 

Fafnir Bearing Co. , The New Britain, Conn. 
Fanstee! Metallurgical Corp. N. Chicago, III. 
British Radio Electronics Ltd. Washington. D.C. 
G. E. Lamp Division 

Nela Park. Cleveland, Ohio 


General Radio Co. 

Mom c or Inc. . Comp. Div. 
Gns$ Reproducer Corp. 
Grabet F tie Co. of America, 


West Concord. Mass. 

Huntington, fnd. 
New Rochelle, N.Y. 
Inc. 

Carlstadt, N.J. 
Lancaster, Pa. 
Palo Alto, Calif. 
Kenilworth, N.J. 
Owensboro, Ky. 
Chicago, III, 


Hamilton Watch Co. 

Hewlett-Packard Co. 

Hey man Mfg. Co. 

G. E. Receiving Tube Dept, 
lectiohm Inc. 

Stanwyck Co'l Products Ltd. 

Hawkesbury, Ontario, Canada 
Cunningham, W. H. & Hill, Ltd. 

Toronto Ontario, Canada 
P R Mallory & Co. Inc. Indianapolis, Ind. 

Mechanical Industries Prod. Co. Akron, Ohio 
Miniature Precision Bearings, Inc. Keene, N.H. 
Muter Co. Chicago, III. 

C A. Norgren Co. Englewood, Colo. 

Ohm tie Mfg Co. Skokie, III. 

Penn Eng. & Mfg. Corp. Doylestown, Pa. 

Polaroid Corp. Cambridge, Mass.. 

Precision Thermometer & Inst. Co. 

Southampton, Pa. 
Microwave & Power Tube Div. Waltham, Mass. 

Rowan Controller Co. Westminster. Md. 

Sanborn Company Waltham, Mass. 

Shallcross Mlg. Co. Selma, N.C. 

Simpson Electric Co Chicago, III. 

Sonotone Corp. Elmsford. N.Y. 

Raytheon Co. Commercial Apparatus & 

Systems Div - So. Norwalk, Conn. 

Spaulding Fibre Co. . Inc. Tonawanda, N.Y. 

Sprague Electric Co. North Adams, Mass. 

Telex Corp. Tulsa, Okla. 

Thomas & Betts Co Elizabeth, N.J. 

Triplett Electrical Inst. Co. Bluffton, Ohio 

Union Switch and Signal, Div. of 
Westinghouse Air Brake Co. Pittsburgh, Pa. 
Universal Electric Co. Owosso, Mich. 

Waid-Leonaid Electric Co. Mt. Vernon, N.Y. 

Western Electric Co. , Inc. New York, N.Y. 

Weston Inst. Inc. Weston-Newark Newark, N.J. 
Witlek Mfg. Co. Chicago, Ilf. 

Minnesota Mining & Mfg. Co. Revere Mmcom Div. 

St. Paul, Minn. 
Hartford, Conn. 
New York, H. Y. 
Inc. 

Garden City, N.Y. 
Inc. Chicago, III. 
Union City, N.J. 
Minneapolis, Minn. 
Chicago, 111. 
Cleveland, Ohio 
New York, N.Y. 


Allen Mfg Co. 

Allied Control 

Allmetal Screw Product Co. 


Atlantic, India Rubber Works, 

Ampoule Co. . Inc. 

ADC Products Inc. 
field, en Mfg. Co. 

Bird Electronic Corp. 

Birnbach Radio Co. 

Boston Gear Works Div. of Murray Co. 

of Texas Quincy. Mass. 

Bud Radio, fnc. Willoughby, Ohio 

Camloc Fastener Corp. Paramus, N.J. 

Cardwell Condenser Corp. 

Lindenhurst L.I.. N. Y. 
Bussmann Mlg. Div. of McGraw-Edison Co. 

St. Louis, Mo. 


71436 

71447 

71450 

71468 

71471 

71482 

71590 

71616 

71700 

71707* 

71744 

71785 

71984 

72136 

72619 

72656 

72699 

72765 

72825 

72928 

72964 

72982 

73061 

73076 

73138 

73293 

73445 

73506 

73559, 

73586 

73682 

73734 

73743 

73793 

73846 

73899 

73905 

73957 

74276 

74455 

74861 

74868 

74970 

75042 

75378 

75382 

75818 

75915 

76005 

76210 

76433 

76487 

76493 

76530 

76545 

76703 

76854 

77068 

77075 

77221 


Chicago, III. 
Pico-Rivera, Calif. 

Elkhart, Ind. 
Los Angeles, Calif. 
Burbank, Calif. 
Chicago, III. 


Chicago, III. 


Chicago Condenser Corp. 

Calif. Spring Co. , Inc. 

CTS Corp. 

ITT Cannon Electric Inc. 

Cinema, Div. Aerovox Corp. 

C. P. Clare & Co. 

Centralab Div. of Globe Union Inc. 

Milwaukee, Wrs. 

Commercial Plastics Co. Chicago, III. 

Cornish Wire Co. , The New York, N.Y. 

Goto Coil Co. , Inc. Providence, R. I. 

Chicago Miniature Lamp Works 
Cmch Mfg. Co.-. Howard B. Jones Div. 

Chicago, HI. 

Dow Corning Corp. Midland, Mich. 

Electro Motive Mfg. Co., Inc. Wi Him antic. Conn. 
Dialight Corp. Brooklyn, N. Y. 

Indiana General Corp., Electronics Div. 

Keasby, N.J. 

General Instrument Corp. , Cap. Div. Newark, N.J. 
Drake Mfg. Co. Harwood Heights, III. 

Hugh H. Eby Inc. Philadelphia, Pa. 

Gudeman Co. Chicago, lil. 

Robert M. Hadley Co. Los Angeles, Calif. 

Erie Technological Products, fnc. Erie, Pa. 

Hansen Mfg. Co., fnc. Princeton, Ind. 

H. M. Harper Co. Chicago, III. 

Helipot Div. of Beckman Inst., Inc. 

Fullerton, Calif. 

Hughes Products Division of Hughes 
Aircraft Co. Newport Beach, Calif. 

Amperex Elect Co. Hicksvifle, L.I., N.Y. 

Bradley Semiconductor Corp. New Haven, Conn. 

Carling Electric, Inc. Hartford, Conn. 

Circle F Mfg. Co, Trenton, N.J. 

George K. Garrett Co. , Div. MSI 


Industries Inc. 

Federal Screw Products Inc. 
Fischer Special Mfg. Co. 
General Industries Co. . The 
Goshen Stamping & Tool Co. 
JFO Electronics Corp. 
Jennings Radio Mfg. Corp. 
Groov-Pin Corp. 

Signalite Inc. 

J. H. Winns, and Sons 
Industrial Condenser Corp. 


Philadelphia, Pa. 
Chicago, III. 
Cincinnati, Ohio 
Elyria, Ohio 
Goshen, Ind. 
Brooklyn, N.Y. 
San Jose, Calif. 
Ridgefield, N. J. 
Neptune, N.J, 
Winchester, Mass. 
Chicago, III. 


R. F. Products Division of Amphenol-Borg 


Electronics Corp. 

E.F, Johnson Co. 
International Resistance Co. 
CTS Knights Inc. 

Kulka Electric Corporation 
Lenz Electric Mfg. Co. 
Litttefuse, Inc. 

Lord Mfg. Co. 

C.W. Marwede! 


Danbury. Conn. 
Waseca, Minn. 
Philadelphia, Pa. 

Sandwich, ill. 
Mt. Vernon. N.Y. 

Chicago, its. 
Des Plaines, III. 
Erie. Pa; 
San Francisco, Calif. 


General Instrument Corp., Mtcamold Division 

Newark, N.J. 

James Mitlen Mfg. Co. . Inc. Malden, Mass. 

J.W. Miller Co. Los Angeles, Calif. 

Cwch-Monadnock , Oiv. of United Carr 

Fastener Corp. San Leandro, Calif. 

Mueller Electric Co. Cleveland, Ohio 

National Union Newark, N.J. 

Oak Manufacturing Co. Crystal Lake, III. 

The Bendix Corp.. Electrodynamics Div. 

N. Hollywood, Calif. 
Pacific Metals Co. San Francisco. Calif. 

Phanostran Instrument and Electronic Co. 

South Pasadena, Calif. 


77252 

77342 

77630 

77638 

77764 

77969 

78189 

78283 
78290 
78452 
7847 1 
78488 
78493 
78553 
78790 
78947 
79136 
79142 
79251 
79727 

79963 

80031 

80120 

80131 

80207 

80223 
80248 
80294 
8041 1 

8048$ 

. 80539 
80583 
80640 
81030 
81073 
81095 
81312 

81349 

81483 

8154! 

81860 

82042 

82047 

82142 

82170 

82209 

82219 

62376 

82389 

82647 

82768 

82866 

82877 

82893 


Philadelphia Steel and Wire Corp. 

Philadelphia, Pa. 

American Machine & Foundry Co. Potter 
& Brumfield Div. Princeton. Ind. 

TRW Electronic Components Div. Camden, N.J. 
Geneial Instrument Corp., Rectifier Oiv. 

Brooklyn. N.Y. 

Resistance Products Co. Harrisburg, Pa. 

Rubbercraft Corp. of Calif. Torrance, Calif. 
Shakeproof Division of Illinois Tool Works 

Elgin, 111. 


Signal Indicator Corp. 
Stfuthers-Ounn Inc. 
Thompson-Bremer & Co. 
Ti lley Mfg Go. 

Stackpole Carbon Co. 
Standard Thomson Corp. 
Ti one-man Products. Inc. 
Transformer Engineers 
Ucinite Co. 

Waldes Kohmoor Inc. 
Vender Root, Inc. 

Wenco Mfg. Co. 


New York, N.Y. 
Pitman, N.J. 
Chicago, HI. 
San Francisco, Calif. 
St Marys, Pa. 
Waltham, Mass. 
Cleveland, Ohio 
San Gabriel, Calif. 
Newtonvrlle, Mass. 
Long Island City, N.Y. 
Hartford, Conn. 
Chicago, III. 


Continental-Wirt Electronics Corp. 

Philadelphia, Pa. 
Zierick Mfg. Ccrp. New Rochelle, N.Y. 

Mepco Division of Sessions Clock Co. 

Momslown, N.J. 

Schnitzer Alloy Products Co. Elizabeth, N.J. 
Electronic Industries Association. Any brand 
Tube meeting ElA Standards-Washingtcn. DC. .... . 
Unimax Switch, Div. Maxon Electronics Corp. 

Wallingford, Conn. 
United Translate* Corp New York, N.Y. 

Oxford Electric Chicago, III. 

8ourr.s Inc Riverside, Calif. 

Aero Div. of F.op-rr-snaw Controls Co. 

Columbus, Ohio 

All Star Products Inc. Defiance, Ohio 

Avery Labe! Co. Monrovia, Calif. 

Hammarlund Co. nc. New York, N.Y. 

Stevens, Arnn'i Go. . Inc. Boston, Mass. 

International Instruments Inc. Orange, Conn. 

G ray hi 1 1 Co. LaGrange, 111. 

Triad Transformer Corp. Venice, Calif. 

Winchester Elec. Div. Litton Ind. , Inc. 

Oakville, Conn. 

Military Specification 

International Rectifier. Corp. El Segondo, Calif. 
Airpax Electronics, Inc, Cambridge, Maryland 
Barry Controls, Div. Barry Wright Corp. 

Watertown, Mass. 
Carter Precision Electric Co. Skokie, 111. 

Sperti Faraday |nc. , Copper Hewitt 
Electric Div. Hoboken, N.J. 

Jeffers Electronics Division of Speer 
Carbon Co. Ou Bois, Pa. 

Fairchild Camera & Inst. Corp. Space & Defense 
System Div. Paramus, N. J. 

Maguire Industries, Inc. Greenwich, Conn. 

Sylvania Electric Prod. Inc. 

Electronic Tube Division Emporium, Pa. 

Astron Corp. East Newark, Harrison, N. J, 

Switchcraft, Inc. Chicago, 111. 

Metals & Controls Inc. Spencer Products 

Attleboro, Mass. 

Phillips-Advance Control Co. Joliet, 111. 

Research Products Corp. Madison, Wis. 

Rotron Mfg. Co., Inc. Woodstock, N.Y. 

Vector Electronic Co. Glendale, Calif. 
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TABLE 6-3. 

CODE LIST OF MANUFACTURERS (Cont’d) 


Co4# 

No. Manufacture! Address 

83058 Carr Fastener Co. Cambridge, Mass. 

83088 New Hampshire Balt Bearing, Inc. 

Peterborough, N.H. 

83125 General Instrument Corp., Capacitor Div. 

Darlington, S. C. 

83148 ITT Wire and Cable Div. Los Angeles, Calif. 
83185 Victory Eng. Corp. Springfield, N.J. 

83238 Bendix Corp., Red Bank Div. Red Bank, N.J. 
83315 Hubbell Corp. Mundelein, III. 

83330 Smith, Herman H., Inc. Brooklyn, N.Y. 

83332 Tech Labs Palisade's Park, N. J. 

83385 Central Screw Co. Chicago, III. 

83301 Gavitt Wire and Cable Co. 

Div. of Amerace Corp. Brookfield, Mass. 

83594 Burroughs Corp. Electronic Tube Div. 

Plainfield, N.J. 

83740 Union Carbide Corp. Consumer Prod. Div. 

New York, N.Y. 

8377? Model Eng. and Mfg. , Inc. Huntington, Ind. 

83821 Loyd Scruggs Co. Festus, Mo. 

83942 Aeronautical Inst. & Radio Co. Lodi, N.J. 

84171 Arco Electronics Inc. Great Neck, N. Y. 

84395 A.J. GlesenerCo.. Inc. San Francisco, Calif. 
844 1 ! TRW Capacitor Div. Ogallala, Neb. 

84970 Sarkes Tarzian, Inc. Bloomington, Ind. 

85454 Boonton Molding Company Boonton, N.J. 

85471 A.B. Boyd Co. San Francisco, Calif. 

85474 R.M. Bracamonte & Co. San Francisco, Calif. 
85$tC Koiled Kords, Inc. Hamden, Conn. 

85311 Seamless Rubber Co. Chicago, III. 

80197 Clifton Precision Products Co., tnc. 

Clifton Heights, Pa. 
89579 Precision Rubber Products Corp. Dayton, Ohio 
88834 Radio Corp. of America, Electronic 

Comp. & Devices Div. Harrison, N.J. 

87.G3? Marco Industries Anaheim, Calif. 

87215 Philco Corporation (Lansdale Division) 

Lansdale, Pa. 

87.473 Western Fibrous Glass Products Co. 

S m Francisco, Calif. 
87664 Van Waters & Rogers Inc. San Francisco, Calif. 
87930 Tower Mfg. Corp. Providence, R. I. 

88140 Cutler-Hammer, Inc. Lincoln, III. 

88220 Gould-National Batteries, Inc. St. Paul, Minn. 
83698 General Mills, Inc. Buffalo, N.Y. 

89231 Graybar Electric Co. Oakland, Calif. 

89473 G. E. Distributing Corp. Schenectady, N.Y. 

89555 United Transformer Co. Chicago, HI. 

90179 US Rubber Co., Consumer Ind. & Plastics 

Prod. Div. Passaic, N.J. 

9>Q970 Bearing Engineering Co. San Francisco, Calif. 
91146 ITT Cannon Elect, Inc., Salem Div. Salem, Mass. 
91260 Connor Spring Mfg. Co. San Francisco, Calif. 
91345 Millef Dial & Nameplate Co. El Monte, Calif. 


Code 

No. Monufocturer Address 

91418 Radio Materials Co. Chicago, III. 

91506 Augat Inc. Attleboro, Mass. 

91637 Dale Electronics, Inc. Columbus, Nebr. 

91662 Elco Corp. Willow Grove, Pa. 

9 1737 Gremar Mfg. Co., Inc. Wakefield, Mass. 

91827 K F Development Co. Redwood City, Calif. 

91886 M*lco Mfg. Co. , Inc. Chicago, III. 

91929 Honeywell Inc., Micro Switch Div. 

Freeport, III. 

91961 Nahm-Bros. Spring Co. Oakland, Calif. 

92180 Tru-Con nector Corp. Peabody. Mass. 

92367 Elgeet Optical Co. Inc. Rochester, N.Y. 

92607 Tensolite Insulated Wire Co. , Inc. 

Tarrytown, N.Y. 

92702 tMC Magnetics Corp. Wesbury Long Island, N . Y . 
92966 Hudson Lamp Co. Kearney, N.J. 

93332 Sylvania Electric Prod. Inc. 

Semiconductor Oiv. Woburn, Mass. 

93369 Robbins & Myers Inc. Palisades Park, N. J. 

93410 Stevens Mfg. Co., Inc. Mansfield. Ohio 

93929 G.V. Controls Livingston, N.J. 

94137 General Cable Corp. Bayonne, N.J. 

94144 Raytheon Co. , Comp. Oiv., Ind. 

Comp. Operations Quincy, Mass. 

94148 Scientific Electronics Products, Inc. 

Loveland, Colo. 

94154 Wagner Elect. Corp. , Tung-Soi Div. Newark, N.J. 
94197 Curtiss-Wright Corp. Electronics Div. 

East Paterson, N. J. 
94222 South. Chester Corp. Chester, Pa. 

94330 Wire Ctoth Products, Inc. Beilwood. III. 

94682 Worcester Pressed Aluminum Corp. 

Worcester, Mass. 

94696 Magnecraft Electric Co. Chicago. III. 

95023 George A. Philbrick Researchers, Inc. 


95236 

Allies Products Corp. , 

Boston, Mass. 
Dania, Fla. 

95238 

Continental Connector Corp. 

Woodside, N.Y. 

95263 

L eecraft Mfg. Co., Inc. 

Long Island, N.Y. 

95265 

National Coil Co. 

Sheridan', Wyo. 

95275 

Vitramon, Inc. 

Bridgeport. Conn. 

95348 

Gordos Corp. 

Bloomfield, N.J. 

95354 

Methode Mfg. Co. 

Rolling Meadows, III, 

95566 

Arnold Engineering Co. 

Marengo, HI. 

957 12 

Dage Electric Co. , Inc. 

Franklin, Ind, 

95984 

Si em on Mfg. Co. 

Wayne, ill. 

95987 

Weckesser Co. 

Chicago. HI. 

96067 

Huggins Laboratories 

Sunnyvale, Calif. 

96095 

Hi-Q Div. of Aero vox Corp. 

Clean, N.Y. 

96256 

Thordarson-Meissner Inc. 

ML Cards el, III. 

96296 

Solar Manufacturing Co. 

Los Angeles, Calif. 

96330 

Carlton Screw Co. 

Chicago, III. 

96341 

Microwave Associates, Inc. 

Burlington. Mass. 

96501 

Excel Transformer Co. 

Oakland, C3lif. 


Code 

No. Manufacturer Addres 

97464 Industrial Retaining Ring Co. Irvington, N.J 

97539 Automatic & Precision Mfg. Englewood, N.J. 

97979 Reon Resistor Corp. Yonkers, N.Y. 

S7983 Litton System Inc. , Adler-Westrex 

Commun. Div. New Rochelle, N.Y. 

98141 R-Troncis, Inc. Jamaica, N.Y. 

98159 Rubber Teck, Inc. Gardena, Calif. 

98220 Hewlett-Packard Co. , Moseley Div. 

Pasadena, Calif. 

98278 Microdot, Inc. So. Pasadena, Calif. 

98291 Sealectro Corp. Mamaroneck, N.Y. 

98376 Zero Mfg. Co. Burbank, Calif. 

98731 General Mills Inc. , Electronics Div. 

Minneapolis, Minn. 

98734 Paeco Oiv. of Hewlett-Packard Co. 

Palo Alto, Calif. 

98821 North Hills Electronics, Inc. Glen Cove, N. Y. 
98978 international Electronic Research Corp. 

Burbank, Calif. 

99109 Columbia Technical Corp. New York, N.Y. 

99313 Vartan Associates Palo Alto, Calif. 

99378 Atlee Corp. Winchester, Mass. 

99515 Marshall Ind. , Capacitor Div. Monrovia, Calif. 
99707 Control Switch Division, Controls Co. 

of America El Segundo, Calif. 

99800 Delevan Electronics Corp. East Aurora, N.Y. 
99848 Wtlco Corporation Indianapolis, Ind. 

99934 Rembrandt, Inc. Boston, Mass. 

99942 Hoffman Electronics Corp. 

Semiconductor Div. El Monte, Calif. 

99957 Technology Instrument Corp. of Calif. 

Newbury Park, Calif. 


THE FOLLOWING ♦*- '.VENDORS HAVE NO NUMBER 
ASSIGNED IN THE LATEST SUPPLEMENT TO THE 
FEDERAL SUPPLY CODE FOR MANUFACTURERS 
HANDBOOK. 


OOGOF Malta Tyot and Die Los Angeles, Calif. 

00002 Willow Leather Products Corp. Newark, N.J. 

OOOAB ETA England 

000BB Precision Instrument Components Co. 

Van Nuys, Calif. 

O00CS Hewlett-Packard Co., Colorado Springs 

Colorado Springs,? Colorado 
000M.M Rubber Eng. & Development Hayward, Calif. 

CGQNN A “N” D Mfg. Co. San Jose, Calif. 

OOCQQ Coottron Oakland, Calif. 

000WW California Eastern Lab. Burlington, Calif. 

800YY S. K. Smith Co. Los Angeles, Calif. 
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